2012年5月9日水曜日

Perl で ファイルの読み込み時にエラーを出すには

Perl  でファイルの読み込み時にエラーが出たときにメッセージを出力するには


例1


$filename = "data2.txt";
if( ! open FH , $filename ){
      print $filename . "  open error\n"; 
}



例2

$filename = "./data2.dat";
open( FH , "$filename" ) || die "Error: $filename $!\n";



0 件のコメント:

コメントを投稿