小编kiv*_*ien的帖子

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

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

Perl 代码如下：-

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

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

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

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

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

请问有什么想法吗？

为什么要使用工厂在Perl中包装构造函数？一个例子会有所帮助.

我怎样才能编写一个Perl脚本来删除在名为$file？的文件中提到'Calvein Klein'的句子？(句子可以交叉零个或多个CR/LF字符.)我想创建一个句子数组并在最后打印出来.