将 Perl 数组转换为字符串

在 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

Mohd Mohtashim

更新于： 2019-11-29

8K+ 次浏览

开启你的 职业生涯

完成课程即可获得认证

开始