如何在 Perl 替换中替换匹配之前的所有文本？

Question

我正在读取输入文件 (IN) 的每一行，如果该行以其中一种模式开头，例如“ab”、“cd”、“ef”、“gh”，则将读取的行打印到输出文件 (OUT) ，“ij”等。打印的行的形式为“pattern：100”或“pattern：100：200”。 我需要将“pattern”替换为“myPattern”，即将当前行打印到FILE，但将第一次出现“：”之前的所有文本替换为“myPattern”。 做这个的最好方式是什么？

目前我有：

while ( <IN> )
{ 
    print FILE if /^ab:|^bc:|^ef:|^gh:/;
}

我不确定 substr 替换是否有帮助，因为“模式”可以是“ab”或“cd”或“ef”或“gh”等。

谢谢！ 双

Answer 1

一般来说，这样做：

my %subst = ( 'ab' => 'newab', 'bc' => 'newbc', 'xy' => 'newxy' );
my $regex = join( '|', map quotemeta, sort { length($b) <=> length($a) } keys %subst );
$regex = qr/^($regex):/;

while ( <IN> ) {
    print FILE if s/$regex/$subst{$1}:/;
}

排序将最长的放在前面，这样如果数据有 ab:: 并且 ab 和 ab: 都被替换，则使用 ab: 代替 ab。

Answer 2

默认情况下，Perl 的替换运算符 (a) 使用第一个匹配项，(b) 仅替换一个匹配项，(c) 如果进行了替换则返回 true，如果没有则返回 false。

所以：

while ( <IN> )
{ 
    if (s/<pattern1>:/<replace1>/ ||
        s/<pattern2>:/<replace2>/) {
       print FILE;
    }
}

应该为你工作。 请注意，由于短路，只会进行一次替换。

Answer 3

sub replacer {

    $line = shift;
    $find = shift;
    $replace = shift;

    $line =~ /([^:]+):/
    if ($1 =~ /$find/) { 
         $line =~ s/([^:]+):/$replace/ ;
         return $line;      
    }
    return ;

}

while (<IN>)
{
    print OUT replacer ($_,"mean","variance");
    print OUT replacer ($_,"pattern","newPattern");
}

我的 Perl 有点生疏，所以语法可能不准确。

编辑：将其放入您的函数中。

Answer 4

while ( <IN> )
{ 
  s/^pattern:/myPattern:/;
  print OUT
}

Answer 5

这可能就是您想要的：

$expr = "^(ab)|(cd)|(ef)|(gh)|(ij)";
while (<IN>)
{
    if (/$expr:/)
    {
        s/$expr/$myPattern/;
        print FILE;
    }
}

Answer 6

执行上面要求的最短方法是重新使用您的代码，但包括替换。

while ( <IN> )
{ 
    print FILE if s/^(ab|bc|ef|gh):/MyPattern:/;
}

任何左侧图案都将被替换。 如果左侧不匹配，则不会打印任何内容。