私は次の単純なコードを持っています(問題のあるコードとして識別され、はるかに大きなプログラムから抽出されました)。
それは私ですか、それともこのコードに明らかなエラーがあり、それが確実に実行されるべきときに一致し$variable
て印刷するのを妨げているのを見ることができますか?$found
印刷しようとしても何も印刷されません$variable
。使用しているファイルには間違いなく一致する行があります。
コード:
if (defined $var) {
open (MESSAGES, "<$messages") or die $!;
my $theText = $mech->content( format => 'text' );
print "$theText\n";
foreach my $variable (<MESSAGES>) {
chomp ($variable);
print "$variable\n";
if ($theText =~ m/$variable/) {
print "FOUND\n";
}
}
}
エラーが発生しているポイントとしてこれを特定しましたが、理由がわかりませんか?とても遅いので、私が完全に見落としていることがあるかもしれませんか?