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

问题描述

精选答案

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

"$b

";' 4740