Perl Substr()函數及函數的應用_javascript技巧

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";