perl正则替换第一次后如何再替换原始字符串（新手）

落羽飘寻

$_="huge dinosaur";
$_=~s/\w+$/($`!)$&/;
my $a=$_;
$_=~s/^(\w+\s+)/($`!)$&/;

my $a2=$_;

print "$_\n";
print "$a\n";
print "$a2\n";

如何让第二次替换是基于huge dinosaur也就是最开始的字符串进行替换，而不是对于第一次替换后的字符串进行替换

wind_ch

分別放到2個變量中, 每個變量完成自己的替換操作.

zhlong8

Perl 字符串可变，你再赋值给另一个变量就会复制一份新的了

落羽飘寻

我这条语句不就是放到a1,a2两个变量了吗？

zhlong8

我这条语句不就是放到a1,a2两个变量了吗？
落羽飘寻 发表于 2011-05-18 10:50

    赋值给 $a $a2 之前你已经改变 $_ 了 $_=~s/\w+$/($`!)$&/;

jason680

$_="huge dinosaur";
$_=~s/\w+$/($`!)$&/;
my $a=$_;
$_=~s/^(\w+\s+)/($`!)$&/;

my $a2=$_;

pri ...
落羽飘寻 发表于 2011-05-18 09:44

$_="huge dinosaur";
my($a, $a2) = ($_, $_);
$a =~ s/\w+$/($`!)$&/;
$a2=~s/^(\w+\s+)/($`!)$&/;