arrays - perls，数组，数组的可变长度

Question

我想修改 perl 脚本中的某一行:

@list = ([$tmp[0],$tmp[1],$tmp[2]]);

我把它改成了这样:

if( $input == 3 )
{
        @list = ([$tmp[0],$tmp[1],$tmp[2]]);
}
if( $input == 2 )
{
        @list = ([$tmp[0],$tmp[1]]);
}
if( $input == 1 )
{
        @list = ([$tmp[0]]);
}

上面的代码有效，但我希望它能处理 $input 值高达 40 的值。

我尝试了几种不同的方法，但我无法以更优雅的方式对其进行编码，这让我很困扰。

非常感谢任何帮助。

Answer 1

以下执行您的请求:

@list = [ @tmp[ 0 .. $input-1 ] ];

下面做你想做的:

my @list = @tmp[ 0 .. $input-1 ];

您还可以使用以下方法非常有效地就地完成后者:

splice(@tmp, $input);