#! /usr/bin/perl # ファイル名の指定 $filename = "notfound.txt"; if( open(IN,"$filename") ) { # 開けた場合の処理 @file = ; close(IN); print @file; } else { # 開けなかった場合の処理 print "ファイル( $filename )が開けませんでした。\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy) = localtime(time); print "エラー発生時刻: $hour時$min分$sec秒.\n"; } exit;