我们可以在Perl中使用join()函数重新加入数组元素并形成一个长标量字符串。此函数具有以下语法-
join EXPR, LIST
此函数将LIST的单独字符串连接成单个字符串,且字段之间用EXPR值分隔,并返回该字符串。以下是示例-
#!/usr/bin/perl # define Strings $var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens"; $var_names = "Larry,David,Roger,Ken,Michael,Tom"; # transform above strings into arrays. @string = split('-', $var_string); @names = split(',', $var_names); $string1 = join( '-', @string ); $string2 = join( ',', @names ); print "$string1\n"; print "$string2\n";
输出结果
这将产生以下结果-
Rain-Drops-On-Roses-And-Whiskers-On-Kittens Larry,David,Roger,Ken,Michael,Tom