join 函数

beyes

join 函数是 split 的反向使用。split 将字符串分解，而 join 则用来将各个子字符串片段联合成一个长的字符串，用法如下：

my $result = join $glue, @pieces;

比如：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl

my $result = join ":", "beyes", "x", "1000", "100", "beyes", "/home/beyes", "/bin/bash";

print "$result\n";

运行输出：

./join.pl
beyes:x:1000:100:beyes:/home/beyes:/bin/bash

在实际应用中，split 经常和 join 一起配合使用：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl

my $result = join ":", "beyes", "x", "1000", "100", "beyes", "/home/beyes", "/bin/bash";

print "$result\n";

my @passwd = split /:/, $result;

my $value = join "-", @passwd;

print "$value";

运行输出：

./join.pl
beyes:x:1000:100:beyes:/home/beyes:/bin/bash
beyes-x-1000-100-beyes-/home/beyes-/bin/bash

需要注意的是，split 的第 1 个参数是个模式，而 join 的第 1 个参数是个“字符串”。