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也被替换
    原文作者:_eason_
    原文地址: https://www.jianshu.com/p/16f82d799e2c
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞