perl:传递子例程正则表达式替换为搜索结果

时间:2013-06-03 08:03:52

标签: regex perl parameters subroutine

我有以下perl子例程:

sub rep {

 defined ($filein = shift) || die ("no filein");
 defined ($fileout = shift) || die ("no fileout");
 $look = shift;
 $replace = shift;
 open (infile, "$filein")|| die;
 open (outfile, "> $fileout")|| die;
 while (<infile>) {
   s/$look/$replace/g;
   print outfile;
 }
(close the files)
}

以及以下文字:

kuku(fred) foo(3)
kuku(barney) foo(198)

我想用以下结构来称呼它:

$look = kuku\((\w+)\) foo \((\d+)\),
$replace = gaga\(($1)\) bar\(($2)\).

但是当我使用以下(以及它的变体)调用sub时,我无法接受$ 1,$ 2格式:

&rep ($ARGV[0], $ARGV[1], 
    "kuku\\(\(\\w+\)\\) foo \\(\(\\d+\)\\)" , 
    "gaga\\(\(\$1\)\\) bar\\(\(\$2\)\\)");

我得到的是:

gaga($1) bar($2)
gaga($1) bar($2)
我在做错了什么? 如何让子程序识别$ 1 \ $ 2(...)作为搜索和替换的搜索结果?

1 个答案:

答案 0 :(得分:6)

我不确定正则表达式中的替换部分是否可以在不使用eval /e的情况下以您想要的方式设置,所以这就是我写这个的方法。

qr//参数是真正的正则表达式,后跟$_[0]$1的回调

rep( $ARGV[0], $ARGV[1], qr/kuku\((\w+)\) foo \((\d+)\)/, sub { "gaga($_[0]) bar($_[1])" } );

sub rep {

  my ($filein, $fileout, $look, $replace) = @_;
  defined $filein or die "no filein";
  defined $fileout or die "no fileout";

  open (my $infile, "<", $filein) or die $!;
  open (my $outfile, ">", $fileout) or die $!;

  while (<$infile>) {
    s/$look/$replace->($1,$2)/ge;
    print $outfile;
  }
  # (close the files)
}

通过传递可能会改变$_的回调,可以更加简化。

rep( $ARGV[0], $ARGV[1], sub { s|kuku\((\w+)\) foo \((\d+)\)|gaga($1) bar($2)| } );

sub rep {

  my ($filein, $fileout, $replace) = @_;
  defined $filein or die "no filein";
  defined $fileout or die "no fileout";

  open (my $infile, "<", $filein) or die $!;
  open (my $outfile, ">", $fileout) or die $!;

  while (<$infile>) {
    $replace->();
    print $outfile;
  }
  # (close the files)
}