プログラム実行を途中で抜け出す方法は exit ?

質問

検索結果を表示するプログラムをPerl で書いています。すでに検索結果が表示されているとします。そして次の文字列を検索したところ対象が見つからなかった、という場合、表示画面には一つ前の結果が出たままにしておきたいので、実行中のプログラム内で結果ゼロと判明した箇所からexit したいのです。exit と解説書に書かれていたのですが、エラーになりました。あるいはgoto でプログラム末尾に飛ぶようなことができるのでしょうか？お教えいただければ幸いです。

回答No.2

osamuy · ベストアンサー

perlにもgotoはあります。
詳しくは、マニュアルperlfuncをどうぞ。

ただ、exitでエラーになるっていうが、CGIの中で単にexitしたらInternal Server errorになった、っていう話なら、単純にgotoするだけじゃ済まないと思われます。

お礼

osamuyさま、ええ、単純ではないみたいなのです。どうもありがとうございました。まだよく分からないことがありますので、もうちょっと調べてみることにいたします。

回答No.1

the845t

forやforeach、while中それを抜けたいのだと思います。
その場合は、last;で抜けられます。

exit;だとプログラム自体が終了するので、
ヘッダが出力されていない場合などでエラーが出ますね。

お礼

for, foreach, while 文から抜けるときはlastだということは知っています。プログラムにはループ文だけでなくprint 文もあります。私が困っているのはこれらすべてをスキップする方法です。gotoの類はありますか？なければ　if 文で最後までくくって外へ逃げるしかありませんか？