perl正则替换第一次后如何再替换原始字符串（新手）
$_="huge dinosaur";
$_=~s/\w+$/($`!)$&/;
my $a=$_;
$_=~s/^(\w+\s+)/($`!)$&/;
my $a2=$_;
print "$_\n";
print "$a\n";
print "$a2\n";
如何让第二次替换是基于huge dinosaur也就是最开始的字符串进行替换，而不是对于第一次替换后的字符串进行替换
$_=~s/\w+$/($`!)$&/;
my $a=$_;
$_=~s/^(\w+\s+)/($`!)$&/;
my $a2=$_;
print "$_\n";
print "$a\n";
print "$a2\n";
如何让第二次替换是基于huge dinosaur也就是最开始的字符串进行替换，而不是对于第一次替换后的字符串进行替换
作者: 落羽飘寻 发布时间: 2011-05-18
分別放到2個變量中, 每個變量完成自己的替換操作.
作者: wind_ch 发布时间: 2011-05-18
Perl 字符串可变，你再赋值给另一个变量就会复制一份新的了
作者: zhlong8 发布时间: 2011-05-18