如何在Perl程序中使用sed？

Question

如何在 Perl 程序中使用以下命令？

cat file| sed -n '/Later/p' | 
sed -n '/A character range is written as two characters separated by{}/!p' | 
sed -n '/ range is not specified{}/!p'

Answer 1

最好不要。 Perl为你提供的不仅仅是简单的sed，如果你可以在Perl中做同样的事情，你就不会支付使用sed的开销：

use strict;
use warnings;

open my $filehandle, '<', 'file' or die "could not open file: $!\n";

while (<$filehandle>) {
    if ( /pattern one/ and not /pattern two/ and not /pattern three/ ) { print }
}