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

我用

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

快速（由于不使用捕获）和简单。如果有换行，它甚至会保留换行符。如果要删除任何尾随换行符，请改用以下内容：

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

Answer 3

#!/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

如何从日志文件中的行中删除无关信息？

3 个答案: