Question

perl 截取字符串 我只想要下面字符串最后的“1”

01-06 02:16:42.781 16033 16040 V ImageCapturewithZoom: The set zoom is 1

Answer 1

$str='01-06 02:16:42.781 16033 16040 V ImageCapturewithZoom: The set zoom is 1';
print substr($str,length($str)-1,1);#如果只是想要最后一个数字
if($str=~/set zoom is (\d)+/){
print $1;＃如果想要固定格式后面的数字
}

Answer 2

$a=~ s/The set zoom is (\d)/$1/;
基本就这样