open(IN,"$filename") || die('ファイルが開けませんでした。');
if( open(IN,"$filename") ) {
# 開けた場合の処理
: : :
}
else {
# 開けなかった場合の処理
print "ファイル( $filename )が開けませんでした。\n";
}
にししの Perl/CGI Tips ふぁくとりー TOPへ戻る
このページに記載の内容は、必ずしも正しいとは限りません。ご注意下さい。
製作者にししへのご連絡は、メールなどでお送り下さい。
どのページへもリンクは歓迎します。
Copyright © 2004-2006 Fumihiro Nishimura.(Nishishi) All rights reserved.
このエラーメッセージは、ブラウザからアクセスした場合でも、ちゃんと表示されます。
ただし、メッセージを表示する以上の複雑な処理(複数行にまたがるような処理)は、この方法では書けません。