用perl中的截取函数substr

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


发表评论

电子邮件地址不会被公开。 必填项已用 * 标注

*

您可以使用这些 HTML 标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

(Spamcheck Enabled)