代码之家 › 专栏 › 技术社区 › Keith Bentrup

Perl正则表达式替换字符串特殊变量

perl regex

Keith Bentrup · 技术社区 · 15 年前

我知道match、prematch和postmatch预定义变量。我想知道s///运算符的已评估替换部分是否有类似的内容。

这在动态表达式中特别有用,因此它们不必进行第二次求值。

下面是一个片段:

while (<>) {
  foreach my $key (keys %regexs) {   
    while (s/$regexs{$key}{'search'}/$regexs{$key}{'replace'}/ee) { 
      # Here I want to do something with just the replaced part 
      # without reevaluating.
    } 
  }
  print;
}

有什么方便的方法吗?Perl似乎有很多方便的快捷方式,而且必须计算两次(这似乎是另一种选择)似乎是一种浪费。

我只想给出一个例子:$regexs{$key}{'replace'}可能是字符串'$2$1',从而交换字符串$regexs{$key}{'search'}中某些文本的位置,可能是''foo'(bar)'-从而产生“barfoo”。我试图避免的第二个计算是$regexs{$key}{'replace'}的输出。

4 回复 | 直到 15 年前

FMc TLP 15 年前

而不是使用字符串 eval (我想这就是发生的事情 s///ee ),您可以定义代码引用来完成此工作。然后,这些代码引用可以返回替换文本的值。例如:

use strict;
use warnings;

my %regex = (
    digits  => sub {
        my $r;
        return unless $_[0] =~ s/(\d)(\d)_/$r = $2.$1/e;
        return $r;
    },
);

while (<DATA>){
    for my $k (keys %regex){
        while ( my $replacement_text = $regex{$k}->($_) ){
            print $replacement_text, "\n";
        }
    }
    print;
}

__END__
12_ab_78_gh_
34_cd_78_yz_

hobbs 15 年前

{
  my $capture;
  sub capture {
    $capture = $_[0] if @_;
    $capture;
  }
}

while (s<$regexes{$key}{search}>
        <"capture('" . $regexes{$key}{replace}) . "')">eeg) {
  my $replacement = capture();
  #...
}

好吧,除了要真正正确地执行之外,您还必须在其中插入更多的代码,以使散列中的值在单引号字符串(反斜杠单引号和反斜杠)中安全。

Schwern 15 年前

my $store;
s{$search}{ $store = eval $replace }e;

ennuikiller 15 年前

为什么不在以下情况之前分配给本地变量:

my $replace = $regexs{$key}{'replace'};

现在你的评估一次。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前