perl - 循环 Perl 数组

Question

我正在创建一个小程序，它接受一个数组并随机返回它，问题是我不确定我是否理解如何返回一个在 Perl 中随机排序的数组。我希望这个数组随机返回 50 次:

 x @array = ("O", "I", "S", "Z", "L", "J", "T")
 print x @array = rand(@array);

如您所见，我尝试了 rand 函数，但它在输出上给出了此错误:

Array found where operator expected at random.pl lone 1, at end of line syntax error at random.pl line 1, near "x@array" Execution ofrandom.pl aborted due to compilation errors.

如果有人能帮助我，我将不胜感激。

Answer 1

您可以使用List::Util中的shuffle函数对数组的元素进行随机排序:

use warnings;
use strict;
use List::Util qw(shuffle);

my @array = ("O", "I", "S", "Z", "L", "J", "T");
for (1..5) {
    print join ' ', shuffle(@array), "\n";
}

__END__

T J Z O S I L 
L Z I O S J T 
I O J Z T S L 
J O I Z L S T 
O I Z T S J L