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。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。