有没有办法在一行中组合替换正则表达式和匹配测试？

Question

答案可能很明显，但我想知道是否有更短的写法：

if ($line =~ m/^REF:  /){
    $line =~ s/^REF:  //;
    # do something else
}

Answer 1

s///返回所做的替换次数。相当于你的代码：

if ($line =~ s/^REF:  //) {
    # do something else
}

Answer 2

你的意思是？

if ($line =~ s/^REF:  //){
    print $line."\n";
}
else {
   print "Line not touched\n";
   }