perl正则替换小问题

Perl code

using strict;
using warning;
my $a="huge dinosaur";
my $a1=~s/\w+$/($`!)$&/;
        print "$a1\n";

为啥这么写报错

Perl code

$a="huge dinosaur";
$a1=~s/\w+$/($`!)$&/;
print "$a1\n";

这么写却什么都没有出现？

作者: FIR1987 发布时间: 2011-05-16

你之前是写C++的？
1.
use 不是 using
warnings 不是 warning

2.
$a1=~s/\w+$/($`!)$&/;
你对一个空值做正则匹配，想得到什么结果？
肯定什么都不会出现。

作者: ace_fei 发布时间: 2011-05-16