##Perl里面的substr工具
substr(要截取的字符串,字符串起始位置,需要截取的字符个数);
use warnings;
use strict;
use feature 'say';
my $str = "testmy";
print substr($str,0,4);
结果:test
##Perl里面的substr工具
substr(要截取的字符串,字符串起始位置,需要截取的字符个数);
use warnings;
use strict;
use feature 'say';
my $str = "testmy";
print substr($str,0,4);
结果:test