perl - 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 }
}