ログファイルの行から無関係な情報を削除するにはどうすればよいですか？上記の行で

Question

read_data: read failure for 4 bytes to client 158.136.150.108. Error = Connection reset by peer

、私は後にライン内のすべてのテキストを削除するs///演算子を使いたい「のread_data：」。

Answer 1

$subject =~ s/(?<=^read_data:).*//; 

この単純なperl正規表現は、このトリックを行います。

の作業例は：http://ideone.com/zhGi5

Answer 2

#!/usr/bin/env perl 

use warnings; use strict; 

while (my $line = <DATA>) { 
    my ($event) = ($line =~ /^(read_data):/); 
    next unless defined $event; 
    print "$event\n"; 
} 

__DATA__ 
read_data: read failure for 4 bytes to client 158.136.150.108. Error = Connection reset by peer 

Answer 3

私は

$str =~ s/^read_data\K:.*//; 

高速かつ簡単な（キャプチャを使用していないのおかげで）使用すると思います。改行がある場合は改行も保持します。末尾の改行を削除したい場合は、代わりに以下を使用してください：

$str =~ s/^read_data\K:.*//s;