我正在解析填充各种错误的日志文件.这些是网络错误,这意味着客户在格式化我们网站的日期时蠢蠢欲动.日志看起来像这样：
Error 123: Customer 2: Bad Date [17/12/2014] Error 123: Customer 2: Bad Date [19/12/2014] Error 123: Customer 1: Bad Date [123/23/222] Error 123: Customer 2: Bad Date [null] Error 123: Customer 6: Bad Date [12/14:] Error 123: Customer 6: Bad Date [12/16:]
现在,前两个对同一个客户来说真的是同一个错误.这两行,日期报告为DD / MM / YYYY而不是YYYY / MM / DD,所以我不需要两次报告此错误.最后两行对于同一客户也是同样的错误.使用过的MM / DD并离开了当年.即使我之前报告过客户#2的错误日期错误,空日期也是另一个错误.在某个地方,他们正在通过一个空日期.
我想做的是用这种方式比较线条：
Error 123: Customer 2: Bad Date [xx/xx/xxxx] Error 123: Customer 2: Bad Date [xx/xx/xxxx] Error 123: Customer 1: Bad Date [xxx/xx/xxx] Error 123: Customer 2: Bad Date [null] Error 123: Customer 6: Bad Date [xx/xx:] Error 123: Customer 6: Bad Date [xx/xx:]
现在,很容易看出前两行和后两行真的是同一个错误.问题是如何使用正则表达式执行此操作.我想更改[和]到x之间的所有数字,但我不想触及字符串的其余部分,因此我不想将错误或客户编号转换为x.
我第一次尝试：
$error =~ s/(\[.*?)\d/$1x/g;
但这只触及括号中的第一个数字.我已经尝试过没有非贪婪的限定符,但这只涉及最后一个角色.
我可以这样做：
$error =~ s/\d/x/g;
但是,用x取代所有出现的数字会破坏我的错误号和客户号.
我可以一遍又一遍地传递错误行,直到没有更换：
while ( my $error = <DATA> ) {
chomp $error;
while ( $error =~ s/(\[.*?)\d/$1x/ ) {
1;
}
say qq(Error: "$error");
}
但是必须有一种方法可以做到这一点,而不必多次遍历while循环.
有没有办法用x有效地替换所有出现的数字,但只能在两个方括号之间？
解决方法
我会用这个解决方案：
$error =~ s{(\[ [^\]]+ \])}{
(my $date = $1) =~ tr/0-9/x/;
$date;
}ex;
如果没有可重入的正则表达式引擎,这将无法在旧的perls中使用.显然,我错了.我用新鲜的brewed perl 5.10.1尝试了这个代码,它运行得很好.
或者,您可以滥用左值子句：
if ($error =~ /\[/gc) {
my $start = pos $error;
my $length = index($error,']',$start) - $start;
substr($error,$start,$length) =~ tr/0-9/x/;
}