regex - 如何在 Perl 中打印与模式匹配的行？

Question

假设 file.txt每行只有一个句子，如下所示:

John Depp is a great guy.  He is very inteligent.  He can do anything.  Come and meet John Depp.

The Perl code is as follows:-

open ( FILE, "file.txt" ) || die "can't open file!";
@lines = <FILE>;
close (FILE);
$string = "John Depp";
foreach $line (@lines) {
    if ($line =~ $string) { print "$line"; }
}

输出将是第一行和第四行。

我想让它适用于具有随机换行符的文件，而不是每行一个英文句子。我的意思是它也应该适用于以下内容:-

约翰德普是个好人。他非常聪明。他可以做任何事情。来见见约翰德普。

输出应该是第一句和第四句。

请问有什么想法吗？

Answer 1

更简单:如果您假设“句子”由点分隔，那么您可以将其用作字段分隔符:

 $/ = '.';
 while(<>) {
        print if (/John Depp/i);
 }