perl substr()函數例子，substr()函數實例代碼 - 返回EXPR的子字符串，起始是為字符串內的偏移量OFFSET。
語法：
substr EXPR, OFFSET, LEN, REPLACEMENT
substr EXPR, OFFSET, LEN
substr EXPR, OFFSET
定義和用法
返回EXPR的子字符串，起始是為字符串內的偏移量OFFSET。如果OFFSET為負，開始有很多的字符結尾的字符串。如果LEN指定，返回的字節數，或所有的字節，直到結束的字符串(如果不指定)。如果len為負數，結束掉多少個字符的字符串。
如果更換REPLACEMENT 指定的子串替換，替換REPLACEMENT 的字符串。
如果您指定的子串，越過結尾的字符串，返回原始字符串的唯一有效的元素。
返回值
字符串
例子
試試下面的例子：
#!/usr/bin/perl -w
#by www.yiibai.com
$temp = substr("okay", );
print "Substring valuye is $temp\n";
$temp = substr("okay", ,);
print "Substring valuye is $temp\n";
這將產生以下結果：
Substring valuye is ay
Substring valuye is ka
實例解析Perl substr函數應用
本文和大家重點討論一下Perl substr函數應用，在編寫perl程序的時候，我們有時需要截取一個字符串中的部分內容，這個時候通常會使用substr函數實現這個功能。
Perl substr函數應用
在編寫perl程序的時候，我們有時需要截取一個字符串中的部分內容，這個時候通常會使用Perl substr函數實現這個功能。
$str="testtest"; printsubstr($str,0,5); $str="testtest"; printsubstr($str,0,5);
運行上面的程序，輸出結果"testt"，這個是我們想要的結果。再看看下面的程序：
$str="測試文本"; printsubstr($str,0,1); $str="測試文本"; printsubstr($str,0,1);
這時候輸出了一個"?"，這顯然不是我們想要的結果。因為在perl中，所有從外部輸入的字符串（包括寫在程序裡的字符串）都會當成字節來處理，"printsubstr($str,0,1);"這句話只是把"測試文本"的第一個字節取出來，並且用print輸出，然而單個字節是不能表示一個中文字符的，所以就輸出了"?"。
如果想要上面的程序輸出正確的結果，就需要使用decode函數把"測試文本"轉換成perl內部字符串，讓perl把"測試文本"當成字符串來處理，這樣再用"substr($str,0,1);"截取的就不是一個字節，而是一個漢字。
下面看一下Perl substr函數的用法：
指令：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="er";