将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
热门推荐
10 生日祝福语男孩 简短独特
11 朋友弟弟生日祝福语简短
12 周大福送礼祝福语大全简短
13 感谢学校生日祝福语简短
14 鼓励孩子小考祝福语简短
15 祝贺新婚祝福语古代简短
16 儿子订婚情话祝福语简短
17 贺卡祝福语宝宝男孩简短
18 弟弟的祝福语简短霸气