Question

怎么用perl实现字符串的部分截取？

Answer 1

用perl中的截取函数substr 用法 substr($a,0,4)其中$a是要切的，如你说的474.....，从第0位起向 后切四个字符 perl -e 'my $a=474000895745; my $b=substr($a,0,4);print "$b\n";' 4740