怎么用perl实现字符串的部分截取？例如在474000895745，，，中截取4740并赋值给另一个标量。
3个回答
展开全部
用perl中的截取函数substr
用法 substr($a,0,4)其中$a是要切的，如你说的474.....，从第0位起向 后切四个字符
perl -e 'my $a=474000895745; my $b=substr($a,0,4);print "$b\n";'
4740
用法 substr($a,0,4)其中$a是要切的，如你说的474.....，从第0位起向 后切四个字符
perl -e 'my $a=474000895745; my $b=substr($a,0,4);print "$b\n";'
4740
参考资料： 无
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
$a="474000895745";
$b=~s/.*/4740/;
print $b;
$b=~s/.*/4740/;
print $b;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
