Perl substr()

语法：
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也被替换