поиск шаблонов в 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;
    }
}

Но код не работает. Я хочу искать шаблон, который хранится в $ line, в файле с именем folk.txt построчно, но он не работает. Что не так в моем коде? извините за мои неработающие вопросы, в первой строке файла molk.txt содержится имя jack, и его следует искать в folk.txt. извините, ребята, но я нашел, где я сделал ошибку.

Answer 1

< FILE1 > не совпадает с <FILE1>.Да, лексер Perl чувствителен к пробелам!(На самом деле, это хуже, чем это: это вероятностно. Но потери пробелов в этом случае должно быть достаточно.)