ＣＧＩ作成で困ってます。

質問

ＣＧＩのプログラムの中で、
$pnumが０個か$psizeか０個だったら
買い物かごに入れないようにしたいのですが、
下記のプログラムで実行すると、
・$pnumが０個で、$psizeが１個だと、
　買い物かごに入りません。
・$pnumが１個で、$psizeが０個だと、
　買い物かごに入ります。
・$pnumが１個で、$psizeが１個だと、
　買い物かごに入ります。
＃$pnumしか対象になってません。

下記の方法のどこを直せばいいでしょうか？
よろしくお願いいたします。

**********************************
foreach (0 .. $#key) {
　($pnum) = split(/:/, $val[$_]);
　($psize) = split(/:/, $val[$_]);
　if (length($pnum) > $maxlen)
　　　{ &error("注文個数は$maxlen桁までです"); }
　if (length($psize) > $maxlen)
　　　{ &error("注文個数は$maxlen桁までです"); }
if ($pnum > 0) { $order++; }
else{if ($psize > 0) { $order++; }}
***********************************

回答No.3

so_blue · ベストアンサー

foreach (0 .. $#key) {
　($pnum) = split(/:/, $val[$_]);
　($psize) = split(/:/, $val[$_]);

@valの中身が分からないですが、
$pnum と $psize が同じ値になってないですか？

回答No.2

HUTABA

#1です。
いらぬお節介ですが、

if ($pnum > 0) { $order++; }
else{if ($psize > 0) { $order++; }}

ですが、これだと
$pnum = 1;
$psize = 0;
若しくは
$pnum = 0;
$psize = 1;

の場合でも$orderがインクリメントされてしまいますよ。

正しくは、
if ($pnum > 0 && $psize > 0) { $order++; }
ですね。
変に入れ子にするより解りやすいですし、処理も高速に終わると思いますよ。

回答No.1

HUTABA

$psizeが数値として認識されていないのかもしれません。
数値以外のデータ（空白、カンマ等）がないっていないか、一度表示して確認してみてはどうでしょう？