Perl正则：为什么不匹配？

$_="effect \((.+),stdout\)<?>pro_print($1);$2$3$4";
if($_ =~ /^effect (.+)<?>(.*)\$1(.*)\$2(.*)\$3(.*)\$4(.*)/){
    print "$1\n";
}else{
    print "不匹配\n";
}

作者: proorck6   发布时间: 2010-10-28

作者: proorck6   发布时间: 2010-10-28

作者: LemIST   发布时间: 2010-10-28