Когда я манипулирую CSV файлами в Perl, мне часто приходится инициализировать массив с некоторым количеством одинаковых элементов:
my $arr = [];
for my $i (0..$n-1) {
push @$arr, "";
}
Есть ли способ сделать это в более компактной форме?
Совершенно я хотел бы иметь выражение для этой цели, чтобы я мог легко добавлять отсутствующие столбцы:
f([@$some_tab, n_elems("", $column_number - scalar(@$some_tab))]);
Я знаю, как писать функцию, но я никогда не делаю этого в 10-строчных сценариях.