perlでのパターン検索

perl
perlでのパターン検索
use strict;
use warnings;
open(FILE1,"/cygdrive/c/cpros/karthik/molk.txt");

my $line = < FILE1 > ;
print $line ;
close(FILE1);
open(FILE2,"/cygdrive/c/cpros/karthik/folk.txt");
my $closet = < FILE2 >;
print $closet;
while($closet = < FILE2 >) {
    if($closet =~ /$line/) {
        break;
    }
}

しかし、コードは機能しません。 folk.txtという名前のファイルの$ lineに1行ずつ保存されているパターンを検索したいのですが、コードで機能しません。 壊れた質問について申し訳ありませんが、molk.txtの最初の行には名前ジャックが含まれており、folk.txtで検索する必要があります。 申し訳ありませんが、間違いを犯した場所を見つけました。

  -1  0


ベストアンサー

`<FILE1>`は “と同じではありません。 はい、perl lexerは空白に敏感です! (実際には、それよりも悪い:それは確率的です。 ただし、この場合、スペースを失うだけで十分です。)

2


タイトルとURLをコピーしました