電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

例外処理のエラーメッセージをautodieモジュールで生成

Perlモジュールのautodieを使用して、例外処理のエラーメッセージをeval関数で出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use autodie;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
eval {
	open(FILE,"<","log.txt");
};
 
if($@) {
	print $@;
}
 
exit;

サンプルコードです。eval関数の波括弧は、末尾に記述するセミコロンを省略するとエラーになりました。

Can't open 'log.txt' for reading: 'No such file or directory' at /Users/UsersName/Documents/workspace/cgi-bin/test.pl line 10

出力結果です。エラーメッセージが出力されました。

スポンサードリンク
スポンサードリンク