さて、ファイルを読み込み、各行を調べて、文字列 ERROR がある場所を見つける必要があります。これは私がこれまでに持っているものです:
open(LOGFILE, "input.txt") or die "Can't find file";
$title = <LOGFILE>;
$\=' ' ;
while (<>){
foreach $title(split){
while (/^ERROR/gm){
print "ERROR in line $.\n";
}
}
}
close LOGFILE;
私が抱えている問題は、各行の最初の単語しか見ていないことです。したがって、入力が
ブーファーエラー
エラーを登録しません。どんな助けでも大歓迎です!私はperlを初めて使用するので、基本的なことを試してみてください。ありがとう!