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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

133(2): 名無しさん＠お腹いっぱい。 02/01/16 05:33 ID:hnHzn5xQ(1/3) AAS
>132

中身は良く知らないけど、価格が販売価格、値段が価格×個数ということでいいのかな？
だとしたら、

open (FH,$file);
while($line=<FH>) {
($hinmei,$kakaku,$kosuu,$nedan)=split(/\t/,$line);
push (@kakakus,$kakaku);
}
close(FH);
$all_kakaku = 0;
省5

---

134: 名無しさん＠お腹いっぱい。 02/01/16 05:35 ID:hnHzn5xQ(2/3) AAS
>133
あ、訂正。

> close(FH);
> $all_kakaku = 0;
> foreach $kakakus(@kakakus) {
の、$all_kakaku　ってのを、$totalになおしてね。

---

135(1): 名無しさん＠お腹いっぱい。 02/01/16 05:49 ID:hnHzn5xQ(3/3) AAS
>133
ほかの処理が泣く、単に合計出すだけだったら、

$total = 0;
open (FH,$file);
while($line=<FH>) {
($hinmei,$kakaku,$kosuu,$nedan)=split(/\t/,$line);
$total = $total + $nedan;
}
close(FH);

だな。
省1

---

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

---

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

---

ぬこの手 ぬこTOP 0.026s