perl 正则替换

lovebbs

$a="abcd";
$b=$a;
$b=~s/a/1/;
怎么能不用$b=$a;这一步？

兰花仙子

要保护$a的话，多一个赋值又如何？实在想简单点：

C:\Perl\bin>perl.exe -le "$a='abcd';($b=$a)=~s/a/1/;print $b"
1bcd

lovebbs

谢谢！！