代码之家 › 专栏 › 技术社区 › SCdF

在变量中存储的Perl正则表达式中使用捕获缓冲区

perl regex

SCdF · 技术社区 · 14 年前

my $string = "This is my string";

$string = regex_replace($string,'is (my) string','$1');

print "$string\n";

sub regex_replace {
    my ( $string,$left,$right ) = @_;

    $string =~ s/$left/$right/gsm;

    return $string;
}

2 回复 | 直到 14 年前

theraccoonbear 14 年前

如果你想避免使用eval。。。

my $string = "This is my string";

$string = regex_replace($string,'is (my) string','$1');

print "$string\n";

sub regex_replace {
    my ( $string,$left,$right ) = @_;

    $string =~ /$left/g;
    $rv = $1;
    $right =~ s/\$1/$rv/;

    $string =~ s/$left/$right/gsm;

    return $string;
}

Greg Bacon 14 年前

在 regex_replace ,你可以用

eval "\$string =~ s/$left/$right/gsm";

但是 eval STRING

在您的示例中,输出是

This my

推荐文章

DotFX · RegEx捕获关键字前但括号后的所有内容

5 月前

user66001 · 正则表达式用于匹配有引号和无引号的文本,并且不匹配任何部分

5 月前

perlchamp · 为什么这也匹配?

5 月前

con · Negative Lookaward在perl正则表达式中不起作用

6 月前

Andrus · 如何在sql中查找第二个匹配项

6 月前

iato · 确保正则表达式不从命名材料中的数字中提取

6 月前

vr8ce · 非成对标记中特定字符的正则表达式

6 月前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

6 月前

Carsten · 使用最近的搜索模式更改文本块

6 月前

Eric Marceau · Grep:有没有一种特殊的方法可以将“无字符”作为“字符位置”匹配的置换?

6 月前