regex - 如何将替换表达式中的正则表达式与 Perl 中的变量进行比较？

Question

所以我是 Perl 的新手，我正在尝试 正则表达式 :

my $address = 'http://mail.google.com/belmark';

s/$address=~(\w+:\/\/)(.*.com)(\/\w+)/$1$2\/dev\/public_html/ if ($address =~ /.*\/belmark/);

该代码在替换部分给了我错误

我想要完成的是在替换表达式中的正则表达式中使用预定义的变量进行比较。我可以使用 $_ 成功比较它.那么我该怎么做呢？

Answer 1

#!/usr/bin/perl
use strict;
use warnings;
my $address = 'http://mail.google.com/belmark';

$address =~ s/(\w+:\/\/)(.*.com)(\/\w+)/$1$2\/dev\/public_html/ if ($address =~ /.*\/belmark/);

print "Address is: $address";

Ideone demo

由于您不熟悉 Perl 中的正则表达式，您应该从 perlrequick 开始.