arrays - Perl - 连接数组元素直到指定长度

Question

我有一个字符串数组 say ，其长度可以是 1 到 20 之间的任何值。我需要将数组的前 3 个元素连接成一个字符串。我用过。

@a = ("Hello","world","welcome");
$b = join(":",@a[0..2])

这会产生所需的输出 Hello:World:welcome

但是当数组长度小于3时说@a = ("hello","wolrd")

我得到 Hello:world: 作为输出。如果我有 1 个变量，我会得到 Hello:: 作为输出。

我想根据数组的长度来限制连接。有什么办法可以做到这一点？

Answer 1

使用 List::Util 1.50 或更新版本你会得到 head这个函数非常适合这类事情，因为它只会返回列表中元素的数量。

use strict;
use warnings;
use List::Util 1.50 'head';
my @array = ('hello', 'world');
my $joined = join ':', head 3, @array; # hello:world

splice函数可以充当穷人的头/尾，但它需要一个特定的数组，并将从该数组中删除返回的元素。

use strict;
use warnings;
my @array = ('hello', 'world');
my $joined = join ':', splice @array, 0, 3; # hello:world
# @array is now empty