用perl中的截取函数substr
用法 substr($a,0,4)其中$a是要切的，如你说的474.....，从第0位起向 后切四个字符
perl -e 'my $a=474000895745; my $b=substr($a,0,4);print "$b\n";'
4740
http://zhidao.baidu.com/question/72410151.html
http://zhidao.baidu.com/question/128250445.html
http://zhidao.baidu.com/question/127838618.html
$a="474000895745";
$b=~s/.*/4740/;
print $b;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024