替换后的返回值

s5unty

1^# s5unty 发表于 2008-01-22 16:18

my $str="foo";
print $str =~ s/./*/g <-- 打印 3

我希望它打印的是 *** ，但我不想多加一句给 $str 赋值的语句
$str =~ s/./*/g;
print $str;

flw

2^# flw 发表于 2008-01-22 16:21

QUOTE:

原帖由 s5unty 于 2008-1-22 16:18 发表
my $str="foo";
print $str =~ s/./*/g

等 Perl6。
等 Perl6 出来了，人人都可以改 Grammar，自己想要什么，就可以有什么。

s5unty

3^# s5unty 发表于 2008-01-22 16:24

您都不知道，看来是没人知道了，我还是老老实实的加一句吧

lonelyair

4^# lonelyair 发表于 2008-01-22 17:37

[Copy to clipboard] [ - ]

CODE:

my $str="foo";
print $str =~ s/./*/g

[Copy to clipboard] [ - ]

CODE:

$str =~ s/./*/g;
print $str;

两个情况是有区别的哦，
看　＝~