Perl正则表达式错误

Question

我目前正在尝试创建一个日志解析器，它从一个输入文件（a.log）中获取以下格式的一系列ping报告：（194.12.224.34中的64字节：icmp_seq=1 ttl=47 time=66.7 ms）并构建一个输出文件（a.csv）。

经过多次尝试，我发现了下面的错误。我的同事给了我他的代码（如下），虽然写得不同，但本质上是一样的。他的代码给出了同样的错误，尽管他的代码在同一个任务中正常工作。任何帮助都将不胜感激！

我现在相信我的前两个正则表达式的工作还行，第三个是问题。下面是我试图解析的内容：

发送120个数据包，接收120个数据包，0%数据包丢失，时间119247ms rtt min/avg/max/mdev=65.944/67.381/72.714/1.728 ms

我在这里的第一篇帖子，如果遗漏了什么，我会道歉。

$INPUT  = "ping.log";
$OUTPUT = "pingParsed.csv";

# > operator puts the write function in overwrite mode rather than append.
open (INPUT, '<', $INPUT);
open (OUTPUT, '>', $OUTPUT);

while (<INPUT>) {

# if (timestamp regex)
if(/(\w{3})\s+(\w{3})\s+(\d+)\s+(\d+):(\d+):(\d+)\s+GMT\s+(\2013)/) {


# print OUTPUT (date regex variables, $1 = Day, $2 = Month, $3 = Day, $4 = hour, $7 = year)
print OUTPUT "$1 , $2 , $3 , $4 , $7";

$headers = "IP, Seq, Time";

print OUTPUT "$headers";

}

# if (ping info regex, $1 = IP address, $2 = Seq, $3 = Time)
if ( m/icmp_seq=
(\S+)
\s+ttl=
(\S+)
\s+time=
(\S+) /x) # x allows use of whitespaces and comments in the regex.
{
    print "$1, $2, $3\n";
}


# if (regex for total ping info - I think this is line 55.) 
if (/\d+\d+\d+\s+\packets\s+\transmitted,\s+\d+\d+\d+\s+\received,\s+(\d+)\s+\packet\s+\loss,\s+time\s+(\d+)\ms\s+\min\avg\max\mdev\s+=\s+(\(S+)\\/\(S+)\\/(S+)\\/\(\S+)\s+\ms/) {
headers: 
print ("$15 = packet loss(%), $22 = time(ms), $28 = rttmin, $33 = arg, $35 = max, $37 = ndev");

print OUTPUT ($15, $22, $28, $33, $35, $37);

 } 


}

close $INPUT;
close $OUTPUT;

错误：

Backslash found where operator expected at ./pingParseScript.pl line 55, near "/\d+\d+\d+\s+\packets\s+\transmitted
    (Missing operator before \?)

在运算符预期的位置找到反斜杠/pingParseScript。pl第55行，靠近“\”（在\？之前缺少操作员）在运算符预期的位置找到反斜杠/pingParseScript。pl第55行，靠近“\”（在\？之前缺少操作员）语法错误在/pingParseScript。pl第55行，靠近“/\d\d\s\packets\s\transmisted，\s\d\d\s\received，\n替换模式未终止于./pingParseScript.pl第55行。

Answer 1

if语句后缺少大括号，应该这样写：

if(/icmp_seq=(\S+)\s+ttl=(\S+)\s+time=(\S+)/)
{

#if(/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+icmp_seq=(\S+)\s+ttl=\d+\s+time=(\S+)/)


print OUTPUT "$8, $10, $16"; 
}

或者这个：

print OUTPUT "$8, $10, $16"
    if(/icmp_seq=(\S+)\s+ttl=(\S+)\s+time=(\S+)/);

而且

while (INPUT)

应该这样写：

while (<INPUT>)

用以下语句替换if语句：

if( /icmp_seq=
(\S+)
\s+ttl=
(\S+)
\s+time=
(\S+)/x ) #x allows use of whitespaces and comments in your regex
{
    print "$1, $2, $3\n"; 
}

Answer 2

我看到两个问题：

1） 通过while更改while（输入）(

2） 最后一个if必须包括{}，并且重新启动regexp内存（从$1）

if(/icmp_seq=(\S+)\s+ttl=(\S+)\s+time=(\S+)/) {
   print OUTPUT "$1, $2, $3"; 
}

另外，以现代perl方式使用词法文件句柄：

open my $input_fh, '<', $INPUT or die $!;
open my $output_fh, '>', $OUTPUT or die $!;

while( <$input_fh> ) {
   # ...
}


close $input_fh;
close $output_fh;