☆ショッピングカートのCGIを作りたい！Perlで☆ (517ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

347(2): 名無しさん＠お腹いっぱい。 02/02/13 05:09 ID:??? AAS
>>346
それって全然簡単じゃない？例としては
if ($ORDER{'mona'} > $ZAIKO{'mona'}) {
print "申し訳ありません。只今$ORDER{'mona'}は在庫を切らしております。\n";
} else {
$ZAIKO{'mona'} -= $ORDER{'mona'}
}
こんな場合こそ、パール独特の変数、ハッシュが力を発揮する時だよ。
ハッシュを上手く使ってね。

---

348: 無謀者 02/02/13 10:05 ID:??? AAS
>347
えっと、カートの中身が複数だった場合商品によって、格納されているファイルがそれぞれ違うので
まずforeachとかで順にカートの中身を取り出しながら商品の格納されているファイルを、検索(hidenでファイル名を渡してある）して、見つかったファイル名をまたforeachなりwhileなりで
検索して、商品名がマッチしたら在庫数と注文数を比較、それで０か足りない場合は
エラー、もし大丈夫なら、在庫数から注文数を引いて、ファイルに書き直し・・・・

みたいな事をやらなければダメな気がするんですが・・・

---

349: 297 02/02/13 12:22 ID:??? AAS
@files=glob "$dir/*.dat"; # $dirはディレクトリ名。*.datのlistを得る
foreach $file(@files){
　open FILE,$file or &error;
　while(<FILE>){
　my($no, $hinmei, $zaiko・・・) = split /\t/; #左辺のmyのリストは適当に
　$zaiko{"$file::$hinmei"} = $zaiko;
　}
　close FILE;
}
とかやって%zaiko{"ファイル名::品名"}(%zaiko{"ファイル名::商品番号"}？)に
省20

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.023s