不明の「1」が出る。

質問

CGIファイルを実行させると必ずといっていいほど、最後に「1」が表れます。
これは一体何なのでしょうか？
なぜ出てくるのでしょうか？

現在以下のようなものを作成したのですが、
if条件であってたばあい、表示されたときに、1が複数出てしまって見栄えが悪いです。
これを消す方法を教えてください。

print "<TABLE CELLSPACING=1>\n";
print "<TR>\n";
print "<TD CLASS=TD1 WIDTH=100>名前</TD>\n";
print "<TD CLASS=TD1 WIDTH=100>ふりがな</TD>\n";
print "<TD CLASS=TD1 WIDTH=100>内線番号</TD>\n";
print "</TR>\n";

for ($i=0;$i<$gyou;$i++){
@log = split(/&/,$FILES[$i]);
foreach(@log){
($key,$value) = split(/=/,$_);
$FORM{$key} = $value;
$FORM{'SYOZOKU'} =~ s/\n$//g;
}
if ($searchkey eq $FORM{'SYOZOKU'}){
print &ok;}
}

sub ok{
print "<TR>\n";
print "<TD CLASS=TD1 HEIGHT=20>$FORM{'NAME'}</TD>\n";
print "<TD CLASS=TD1 HEIGHT=20>$FORM{'KANA'}</TD>\n";
print "<TD CLASS=TD1 HEIGHT=20>$FORM{'BANGOU'}</TD>\n";
print "</TR>\n";
}

print "</TABLE>\n";
print "</BODY>\n";
print "</HTML>\n";

回答No.1

ryota2 · ベストアンサー

したのほうの

if ($searchkey eq $FORM{'SYOZOKU'}){
print &ok;}
}

ここの print は要りません。

お礼

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

printが原因だとはまったくもって気づきませんでした。
ありがとうございました。

回答No.2

namiri_e

私もはじめはわからなかったのですが、
下の方の回答を見てどう言うことが起こっているのかわかりました。

つまり、サブルーチン呼び出しの前にprintがあるため、
サブルーチン自体が返す「真」という情報を
表示(print)してしまっているのだと思われます。

通常、サブルーチン内で最後に評価された変数が
サブルーチンの値として返されるので、
この場合は「真」が返ってきたのでしょう。

お礼

回答ありがとうございます。
そういうことだったみたいですね。
まったく気づきませんでした。

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