くだすれPerl（超初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
545:nobodyさん 07/12/10 20:33:24 >>544 レス㌧です >500になるのはファイルが存在しないから あーやっぱりファイル無いと500でるんですね・・ 一応ローカルでファイルあるとき（使用中（オープン中））はエラー表示されますた 546:nobodyさん 07/12/10 23:08:25 >>545 ファイルが無くてもorの右の式は実行されるよ。 ローカルでは動くならパーミッションのミスか、cgi用のディレクトリに入ってないとかじゃない？ あとは、perlのパス間違ってるとか。 ファイルが無いときにエラー処理したいなら &error if (not -e $file); とかにしれ or &error;ってやるのはロック中だけにするとエラーの原因が絞れるよ。 547:543 07/12/11 02:37:10 >>546 ローカル環境はXP+apache_1.3.39+ActivePerl-5.8.8.822です use CGI::Carp qw(fatalsToBrowser);もｽｸﾘﾌﾟﾄに入ってます --------------------------------------------- open(FH,"abc.dat") || &error;←ココ flock(FH,1) || &error; 以下割愛 sub error { print "content-type: text/html\n"; print "\n"; print "ERROR : $!"; exit; } --------------------------------------------- >ファイルが無くてもorの右の式は実行される >ファイルが無いときにエラー処理したいなら >&error if (not -e $file); どうも無理っぽいです ファイル無いと500エラー出ます 500用のエラーページ（←自分で作った）も表示されないので ファイルが無いと500（強制終了?）ぽいです?
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4297日前に更新/307 KB
担当:undef