perl - 创建一个包含 n 个元素的数组

Question

我正在寻找 Perlish 方法来创建一个包含 n 个元素的数组，其中每个元素都是 0。

这是我能想到的最好的:

#! /usr/bin/env perl

use warnings;
use strict;
use utf8;
use feature qw<say>;

print "Enter length of array: ";
chomp(my $len = <STDIN>);

my @arr = split // => "0" x $len;

say "@arr  ", scalar(@arr);

我还查看了 List::Util 的 reduce，但它不像上面的代码片段那么紧凑。

Answer 1

Perl 的数组根据需要进行扩展。您不必预先创建它们。为什么要创建一个定义长度的数组？

做你问的方法是:

my @a = (0) x $n;

哪里 $n是元素的数量，但同样，它可能不合适。告诉我们更多有关您要解决的问题的信息。