リストに何も無ければXXを表示…

質問

あるCGIのログの一部をSSIで表示させようとしています。リストの「pt」と「name」があったものだけを「$max」個表示すると言う物です。
一部抜き出すと…
-----
print "Content-Type: text/plain\n\n";
open (FILE,"../../cgi-bin/navi-a/navi.log");
$i=0;
while (<FILE>) {
local($no,$pt,$sub,$hp,$name,$email,$pw,$msg,$dt,$ts,$rec,$axs) = split(/<>/);
if ($pt eq $ARGV[0] && $name eq $ARGV[1]){
$i++;
print "～
}
if ($i >= $max) { last; }
}
-----
これに、「合う物が無かったら"無いですよ"文を表示」と言うのを付けたいのですが、うまく出来ません。

if ($pt eq $ARGV[0] && $name eq "")
とかを試してみましたがうまく出来ませんでした。
何か良い方法が無いでしょうか?
お願いします。

回答No.2

mrumesuke · ベストアンサー

$i=0; # $iは0で初期化されている
while (<FILE>) {
local ～
if (～) {
$i++; # 条件に一致するものをカウント
print "～
} # end-if
if ($i >= $max) { last; }
# ここはwhileループの中
} # end-while

# ここはループの外
if ($i == 0 ){ # $i==0ということは条件に一致するものが一つも無かったということ
print ～～#該当する物が無かったときの表示
}

おそらくこんな感じでしょう。

お礼

返答ありがとうございました。

ばっちり出来ました。

回答No.1

mrumesuke

while ループを抜けた後に$i==0だったら「合うものが無かった」ということになりませんか？

補足

返答ありがとうございます。

と言うことは、

print "～
}
if ($i >= $max) { last; }
if ($i == 0 ){
print ～～#確答する物が無かったときの表示
}
}
としたら良いのでしょうか?