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 开始.