Perl 替换 (RHS) 中的 Grep

Question

我想根据文件 $key 中定义的“字符串字符串”对替换文本。

示例输入文件$input

a b c foo
d e f moo
g h i boo

预定义的“密钥”文件$key

cow moo
code foo
ghost boo
cheer woo

期望的输出

a b c code
d e f cow
g h i ghost

我的尝试

perl -pe 's/(.*?)(\woo)/$1qq{grep -oP ".*(?=\s$2)" $key}/e' $input > $output

错误返回

syntax error at -e line 1, near "$1qq{grep -oP ".*(?=\s$2)" $key}"
syntax error at -e line 1, near "s/(.*?)(\woo)/$1qq{grep -oP ".*(?=\s$2)" $key}/ee"

我们将不胜感激。

非常欢迎提出更好的方法来实现预期结果的建议，但理想情况下可以接受的答案还包括解决方案或对使用 perl 替换的评论。

Answer 1

从命令行使用 perl，

perl -lane'
  BEGIN{ local @ARGV = pop; %h = reverse map split, <> }
  print join " ", @F[0..2], $h{$F[3]};

' input key

输出

a b c code
d e f cow
g h i ghost

更新

perl -lane'
  BEGIN{ local @ARGV = pop; %h = reverse map /(.+)\s+(\S+)$/, <> }
  print join " ", @F[0..2], $h{$F[3]};

' input key

Answer 2

这里是你如何使用awk

awk 'FNR==NR {a[$2]=$1;next} $NF=a[$NF]' key input
a b c code
d e f cow
g h i ghost

它将key文件读取到数组a
然后使用数组a 的键打印input 文件以更改最后一个字段。

如果a[$NF] 可能是0，请使用：

awk 'FNR==NR {a[$2]=$1;next} {$NF=a[$NF];print}' key input

Answer 3

$1qq{grep -oP ".*(?=\s$2)" $key}

不是有效的 Perl 表达式。也许你的意思是

$1 . qq{grep -oP ".*(?=\s$2)" $key}

尽管该表达式中还有许多其他错误。 （你在应该使用qx{}的地方使用了qq{}，你忘记转义\，你使用了$key而没有为其赋值，也许更多。）

只读取一次密钥文件的可维护解决方案：

perl -e'
   my %lookup;
   open(my $fh, "<", shift(@ARGV))
      or die $!;

   while (<$fh>) {
      my ($v,$k) = split;
      $lookup{$k} = $v;
   }

   while (<>) {
      my @f = split;

      next if !@f;  # Skip blank lines.

      if (defined($lookup{$f[3]})) {
         warn("Can'\''t find key \"$f[3]\". Copying record unchanged.\n");
         print;
         next;
      }

      $f[3] = $lookup{$f[3]};
      print("@f\n");
   }
' keyfile.txt input.txt >output.txt

Answer 4

就个人而言 - 我不喜欢做一个衬里，因为它们很难阅读。

模式替换的一般技巧是这样的：

my %replacements;
open ( my $keyfile, "<", "key_file.txt" ) or die $!;
while ( $keyfile ) {
     chomp;
     my ( $value, $key ) = split;
     $replacements{$key} = $value; 
}

my $regex = join ( "\b|\b", keys %replacements ); 
$regex = qr/$regex/; 

open ( my $replace_fh, "<", "input_file" ) or die $!; 
while ( <$replace_fh> ) {
    s/\b($regex)\b/$replacements{$1}/g;
    print;
}

它将您的输入转换为替换散列，构造一个匹配其中任何单词的正则表达式，然后使用该正则表达式“匹配” - 使用$1 散列的查找键。