在perl中搜索模式

Question

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中的模式但是我的代码中没有错误吗？ 对不起我的问题，molk.txt的第一行包含一个名称插孔，它应该在folk.txt中搜索。抱歉，但我发现我犯了错误。

Answer 1

< FILE1 >与<FILE1>不同。是的，perl词法分析器是空格敏感的！ （实际上，它比这更糟糕：它是概率性的。但在这种情况下，丢失空间应该足够了。）