regex – Perl用字符串中的“x”替换数字,但仅在一个特定位置
我正在解析填充各种错误的日志文件.这些是网络错误,这意味着客户在格式化我们网站的日期时蠢蠢欲动.日志看起来像这样:
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/; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |