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