怎么用perl实现字符串的部分截取？例如在474000895745，，，中截取4740并赋值给另一个标量。

2025年05月07日 21:49

有3个网友回答

网友（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

网友（2）：

http://zhidao.baidu.com/question/72410151.html
http://zhidao.baidu.com/question/128250445.html
http://zhidao.baidu.com/question/127838618.html

网友（3）：

$a="474000895745";
$b=~s/.*/4740/;
print $b;