2018/12/5 ネット商品の管理術 ファイル読み込みの活用
やりたいこと 商品リストを別ファイルで管理 入力フォーム (HTML) もプログラム (Perl) に書かせる 頻繁に変更 2018/12/5 やりたいこと 商品リストを別ファイルで管理 入力フォーム (HTML) もプログラム (Perl) に書かせる <FORM method="post" action=“receipt.cgi"> <P> <TABLE summary="一口シリーズ" border="1"> <TR><TH>商品名</TH><TH>単価(円)</TH><TH>注文数</TH></TR> <TR> <TD>亜衣のチョコ</TD> <TD>100</TD> <TD><INPUT type="text" name="0"></TD> </TR> ・・・(中略) ・・・ </TABLE> </P> <H2>支払い方法</H2> <P><INPUT type="submit" value="送信"></P> </FORM> 頻繁に変更 変更の度に HTML タグにするのが面倒(^^ゞ
やりたいこと 商品リストを別ファイルで管理 入力フォーム (HTML) もプログラム (Perl) に書かせる name 属性 : 商品名 2018/12/5 やりたいこと 商品リストを別ファイルで管理 入力フォーム (HTML) もプログラム (Perl) に書かせる name 属性 : 商品名 : 単価 <TR><TD>亜衣のチョコ</TD><TD>100</TD> <TD><INPUT type="text" name="0"></TD></TR> <TR><TD>一口亜衣ス</TD><TD>100</TD> <TD><INPUT type="text" name="1"></TD></TR> <TR><TD>亜衣カップ珈琲</TD><TD>100</TD> <TD><INPUT type="text" name="2"></TD></TR> <TR><TD>亜衣の飴ちゃん</TD><TD>100</TD> <TD><INPUT type="text" name="3"></TD></TR> <TR><TD>一粒苺</TD><TD>200</TD> <TD><INPUT type="text" name="4"></TD></TR> <TR><TD>一本バナナ</TD><TD>200</TD> <TD><INPUT type="text" name="5"></TD></TR> <TR><TD>一切れメロン</TD><TD>200</TD> <TD><INPUT type="text" name="6"></TD></TR> <TR><TD>一房みかん</TD><TD>200</TD> <TD><INPUT type="text" name="7"></TD></TR> <list.txt> 0:亜衣のチョコ:100 1:一口亜衣ス:100 2:亜衣カップ珈琲:100 3:亜衣の飴ちゃん:100 4:一粒苺:200 5:一本バナナ:200 6:一切れメロン:200 7:一房みかん:200 list.txt ファイルを開く open(LST,"list.txt"); @list = <LST>; close(LST); 仮置き場 LST に中身を置く 配列変数 @list に LST の中身を格納 LST に置いたファイル list.txt を閉じる @list 0:亜衣のチョコ:100 1:一口亜衣ス:100 ・・・ 7:一房みかん:200
やりたいこと 商品リストを別ファイルで管理 入力フォーム (HTML) もプログラム (Perl) に書かせる @list 2018/12/5 やりたいこと 商品リストを別ファイルで管理 入力フォーム (HTML) もプログラム (Perl) に書かせる @list 0:亜衣のチョコ:100 1:一口亜衣ス:100 ・・・ 7:一房みかん:200 0:亜衣のチョコ:100 1:一口亜衣ス:100 $x $tbl <TR><TD>亜衣のチョコ</TD><TD>100</TD> 1 一口亜衣ス 亜衣のチョコ 100 100 <TD><INPUT type="text" name="0"></TD></TR> <TR><TD>一口亜衣ス</TD><TD>100</TD> $n $a $b <TD><INPUT type="text" name="1"></TD></TR> <TR><TD>亜衣カップ珈琲</TD><TD>100</TD> <TD><INPUT type="text" name="2"></TD></TR> <TR><TD>亜衣の飴ちゃん</TD><TD>100</TD> <TD><INPUT type="text" name="3"></TD></TR> <TR><TD>一粒苺</TD><TD>200</TD> <TD><INPUT type="text" name="4"></TD></TR> <TR><TD>一本バナナ</TD><TD>200</TD> <TD><INPUT type="text" name="5"></TD></TR> <TR><TD>一切れメロン</TD><TD>200</TD> <TD><INPUT type="text" name="6"></TD></TR> <TR><TD>一房みかん</TD><TD>200</TD> <TD><INPUT type="text" name="7"></TD></TR> $tbl = ””; foreach $x(@list){ } 改行コードを除去する chomp($x); ($n, $a, $b) = split(/:/,$x); $tbl .= "<TR><TD>$a</TD><TD>$b</TD>\n“; $tbl .= "<TD><INPUT type=\"text\" name=\"$n\"></TD></TR>\n“;
やりたいこと 商品リストを別ファイルで管理 当然、計算処理もプログラム (Perl) にさせる @list 2018/12/5 やりたいこと 商品リストを別ファイルで管理 当然、計算処理もプログラム (Perl) にさせる @list 0:亜衣のチョコ:100 1:一口亜衣ス:100 ・・・ 7:一房みかん:200 $x @goods 0:亜衣のチョコ:100 亜衣のチョコ 一口亜衣ス ・・・ 一房みかん $n $a $b 1 7 亜衣のチョコ 100 @tanka 100 100 ・・・ 200 1 7 配列 @goods と @tanka を用意する $tbl = ""; foreach $x(@list){ chomp($x); ($n, $a, $b) = split(/:/,$x); } $goods[$n] = $a; $tanka[$n] = $b;