Perl语言substr应用

最新推荐文章于 2024-09-12 07:37:50 发布

ok_我的心

最新推荐文章于 2024-09-12 07:37:50 发布

阅读量1w

点赞数 2

分类专栏： perl

本文链接：https://blog.csdn.net/ok_baby/article/details/9889653

版权

perl 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

Perl语言substr应用

use Encode;
$str=decode('gbk',"测试文本");
print encode('gbk',substr($str,0,1));
=============================================
指令：substr
语法：substr($string,offset,length)
offset代表起始字符的位置,length代表引用的字符串长度，如果省略length则代表从起始值到字符串的最后一个字符长度。而offset如果是负值的话，就会从字符串右边开始指定字符。
示例：

$s=substr("perl5",2,2); #这时$s="rl";
$s=substr("perl5",2); #这时$s="rl5";
$s=substr("perl5",-2,2); #这时$s="l5";
==================================================
Syntax

substr EXPR, OFFSET, LEN, REPLACEMENT

substr EXPR, OFFSET, LEN

substr EXPR, OFFSET
======================================
http://www.perlmeme.org/howtos/perlfunc/substr.html

http://www.tutorialspoint.com/perl/perl_substr.htm