将相同匹配模式的 2 行连续行放入一行 [英] Putting 2 consecutive lines of same matching pattern into single line

问题描述

我想解析这组行，以便如果在连续行中获得与 **<[e-mail]>** 相同的模式，它应该将其打印为单个","介于两者之间.

I want to parse this set of lines so that if get the same pattern like **<[e-mail]>** in consecutive lines, it should print it in single with "," in between the two.

q2VDWKkY010407  2221878 Sat Mar 31 19:37 <Mailer-daemon>
                     (host map: lookup (my.local.domain): deferred)
                                             <[e-mail]>
                                             <[e-mail]>
q2VDWKkY010407  2221878 Sat Mar 31 19:37 <Mailer-daemon>
                     (host map: lookup (my.local.domain): deferred)
                                             <[e-mail]>
                                             <[e-mail]>

我怎样才能在 Perl 中做到这一点?

How can I do that in Perl?

推荐答案

With lookaround:

With lookaround:

#!/usr/bin/env perl
use strict;
use warnings;

my $str = <<'EOS';
q2VDWKkY010407  2221878 Sat Mar 31 19:37 <Mailer-daemon>
                     (host map: lookup (my.local.domain): deferred)
                                             <[e-mail]>
                                             <[e-mail]>
q2VDWKkY010407  2221878 Sat Mar 31 19:37 <Mailer-daemon>
                     (host map: lookup (my.local.domain): deferred)
                                             <[e-mail]>
                                             <[e-mail]>
EOS

$str =~ s/(?<=<yagyavalkbhatt\@yahoo.com>)\s+(?=<yagyavalkbhatt\@yahoo.com>)/,/g;
print $str;

输出:

q2VDWKkY010407  2221878 Sat Mar 31 19:37 <Mailer-daemon>
                 (host map: lookup (my.local.domain): deferred)
                                         <[e-mail]>,<[e-mail]>
q2VDWKkY010407  2221878 Sat Mar 31 19:37 <Mailer-daemon>
                 (host map: lookup (my.local.domain): deferred)
                                         <[e-mail]>,<[e-mail]>

这篇关于将相同匹配模式的 2 行连续行放入一行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！