语法:
substr EXPR, OFFSET
substr EXPR, OFFSET, LEN
substr EXPR, OFFSET, LEN, REPLACEMENT\
OFFSET:字符串内的偏移量OFFSET;OFFSET为正,从左边开始计数计数找到起始位置。如果OFFSET为负,从右到左计数找到起始位置,最后一个字符为-1;
LEN:返回的字节数;如果不指定,返回从OFFSET开始直到结束的字符串(如果不指定);如果len为负数,返回从OFFSET开始到结束省略掉LEN个字符的字符串;
substr EXPR, OFFSET:
my $s=substr("perl5",2,);
print ("$s\n");
输出结果为:rl5
my $s=substr("perl5",-2,);
print ("$s\n");
输出结果为l5
substr EXPR, OFFSET, LEN:
my $s=substr("perl5",2,2);
print ("$s\n");
输出结果为rl
my $s=substr("perl5",-3,2);
print ("$s\n");
输出结果为rl
my $s=substr("perl5",1,-1);
print ("$s\n");
输出结果为erl
my $s=substr("perl5",-3-1);
print ("$s\n");
输出结果为rl
substr EXPR, OFFSET, LEN, REPLACEMENT:
my $string = "perl5";
my $s=substr($string,1,3) = "PERL";
print ("$string\t$s\n");
输出结果为:pPERL5 PERL
并且原字符串$string也被替换