Perl join()用法及代碼示例

Perl中的join()函數使用VAR的值將LIST的元素組合為單個字符串，以分隔每個元素。實際上，這與拆分相反。

請注意，VAR僅放置在LIST中的成對元素之間；它將不會放置在字符串的第一個元素之前或最後一個元素之後。提供一個空字符串而不是undef來將字符串連接在一起而沒有分隔符。

用法： join(VAR, LIST)

參數：

VAR :在列表元素之間放置分隔符。
LIST :LIST要轉換為String。

返回：返回連接的字符串

示例1:

#!/usr/bin/perl 
  
# Joining string with a separator 
$string = join( "-", "Geeks", "for", "Geeks" ); 
print"Joined String is $string\n"; 
  
# Joining string without a separator 
$string = join( "", "Geeks", "for", "Geeks" ); 
print"Joined String is $string\n";

輸出：

Joined String is Geeks-for-Geeks
Joined String is GeeksforGeeks

示例2:

#!/usr/bin/perl 
  
# Joining string with '~' separator 
$string = join( "~", "Geeks", "for", "Geeks" ); 
print"Joined String is $string\n"; 
  
# Joining string with '***' separator 
$string = join( "***", "Geeks", "for", "Geeks" ); 
print"Joined String is $string\n";

輸出：

Joined String is Geeks~for~Geeks
Joined String is Geeks***for***Geeks

相關用法

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