Perl:如果文件中不存在特定行则退出

Question

在对文件执行某些操作之前，我需要扫描文件以查看它是否包含某一特定行。如果该行不存在于文件中的任何位置，我将退出(并且不对该文件执行任何进一步的操作)。

在 Perl 中执行此操作的最有效方法是什么？

Answer 1

读取文件的问题是 - 昂贵的部分始终是读取数据的过程。

因此 - 读取您的文件，如果您遇到匹配的行则中断并测试您是否在循环之外；

my $found; 
while ( <$filehandle> ) {
    if ( m/Some Text to match here/ ) { 
        $found++;
        last;
    }
}

die "Line not present" unless $found;