时间戳

首页 > 解决方案 > 在 Perl 中复制数组的次数

arrays - 在 Perl 中复制数组的次数

问题描述

我有一个包含 5 个元素的数组(1,2,3,4,5)。我想根据标量中设置的值多次复制它$no_of_replication，例如 3。
这样我的最终数组将包含(1,2,3,4,5,1,2,3,4,5,1,2,3,4,5).

这是我尝试过的。它给了我标量内容而不是元素。

use strict;
use warnings;
use Data::Dumper;

my @array  = (1,2,3,4,5); 
print Dumper(\@array);

my $no_of_replication = 3;

my @new_array = @array * $no_of_replication;

print Dumper(\@new_array);

我的数组（@new_array）应该是这样的(1,2,3,4,5,1,2,3,4,5,1,2,3,4,5)。

标签： arraysperl

解决方案

运算符是x，您需要小心数组语法：

@new_array = ( @array ) x $no_of_replication;

在这里找到解决方案：
http ://www.digitage.co.uk/digitage/library/perl/multiplying-strings-and-lists-in-perl

推荐阅读