Perl语言substr应用

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