本文和大家重點討論一下Perl substr函數應用，在編寫perl程序的時候，我們有時需要截取一個字符串中的部分內容，這個時候通常會使用substr函數實現這個功能。

公司主營業(yè)務：成都網站建設、網站設計、移動網站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現互聯網宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯公司推出新興免費做網站回饋大家。

Perl substr函數應用

在編寫perl程序的時候，我們有時需要截取一個字符串中的部分內容，這個時候通常會使用Perl substr函數實現這個功能。
 

 
 
 

  
  
  
viewplaincopytoclipboardprint?  
  
  
  
$str="testtest";  
  
  
  
printsubstr($str,0,5);  
  
  
  
$str="testtest";  
  
  
  
printsubstr($str,0,5);  
 
 
 

 運行上面的程序，輸出結果"testt"，這個是我們想要的結果。再看看下面的程序：
 

 
 
 

  
  
  
viewplaincopytoclipboardprint?  
  
  
  
$str="測試文本";  
  
  
  
printsubstr($str,0,1);  
  
  
  
$str="測試文本";  
  
  
  
printsubstr($str,0,1); 
 
 
 

這時候輸出了一個"?"，這顯然不是我們想要的結果。因為在perl中，所有從外部輸入的字符串（包括寫在程序里的字符串）都會當成字節(jié)來處理，"printsubstr($str,0,1);"這句話只是把"測試文本"的***個字節(jié)取出來，并且用print輸出，然而單個字節(jié)是不能表示一個中文字符的，所以就輸出了"?"。

如果想要上面的程序輸出正確的結果，就需要使用decode函數把"測試文本"轉換成perl內部字符串，讓perl把"測試文本"當成字符串來處理，這樣再用"substr($str,0,1);"截取的就不是一個字節(jié)，而是一個漢字。

◆下面看一下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"; 
 
 
 

【編輯推薦】

1. Perl函數參數中傳遞數組和引用的使用
2. 全面認識Perl進程處理函數
3. 學習筆記 Perl grep函數使用揭秘
4. 學習筆記 Perl split函數用法指導
5. Perl多進程及其和多線程的關系解析

分享名稱：實例解析Perlsubstr函數應用
網站地址：http://uogjgqi.cn/article/dhohjsd.html