Perl substr()用法及代碼示例

Perl中的substr()從傳遞給函數的字符串中返回一個子字符串，從給定索引開始直至指定長度。如果未指定長度，則此函數默認情況下從給定索引開始返回字符串的其餘部分。如果要將字符串的該部分替換為其他子字符串，也可以將替換字符串傳遞給substr()函數。該索引和長度值也可能為負，這會改變字符串中索引計數的方向。例如，如果傳遞了一個負索引，則子字符串將從字符串的右端返回，而如果我們傳遞負數長度，則該函數將從字符串的後端保留那麽多字符。

用法： substr(string, index, length, replacement)

參數:

string:從中提取子字符串的字符串
index:子字符串的起始索引
length:子串的長度
replacement: 替換子字符串(如果有)

返回值：所需長度的子字符串

注意：可以省略參數“長度”和“替換”。

例子1

#!/usr/bin/perl 
  
# String to be passed 
$string = "GeeksForGeeks"; 
  
# Calling substr() to find string  
# without passing length 
$sub_string1 = substr($string, 4); 
  
# Printing the substring 
print "Substring 1 : $sub_string1\n"; 
  
# Calling substr() to find the  
# substring of a fixed length 
$sub_string2 = substr($string, 4, 5); 
  
# Printing the substring 
print "Substring 2 : $sub_string2 ";

輸出：

Substring 1 : sForGeeks
Substring 2 : sForG

例子2

#!/usr/bin/perl 
  
# String to be passed 
$string = "GeeksForGeeks"; 
  
# Calling substr() to find string  
# by passing negative index 
$sub_string1 = substr($string, -4); 
  
# Printing the substring 
print "Substring 1 : $sub_string1\n"; 
  
# Calling substr() to find the  
# substring by passing negative length 
$sub_string2 = substr($string, 4, -2); 
  
# Printing the substring 
print "Substring 2 : $sub_string2 ";

輸出：

Substring 1 : eeks
Substring 2 : sForGee

相關用法

注：本文由純淨天空篩選整理自A_K_Mishra大神的英文原創作品 Perl | substr() function。非經特殊聲明，原始代碼版權歸原作者所有，本譯文未經允許或授權，請勿轉載或複製。