Perl语言substr应用

原创于 2013-08-11 01:05:48 发布 · 1w 阅读

3 ·

CC 4.0 BY-SA版权

perl 专栏收录该内容

11 篇文章

订阅专栏

本文详细介绍了Perl语言中substr函数的使用方法，包括其语法、参数解释以及实际应用案例。通过示例演示了如何利用substr从字符串中提取特定部分，并提供了链接以供深入学习。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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