#!/usr/bin/perl
use Data::Dumper;
use strict;
use List::Util qw(shuffle);
my @arr = [qw(Foo Bar Baz Qux Quux Quuz)];
@arr = shuffle @arr;
print Dumper @arr;
Perl版本是v5.32.0。我看到的结果总是Foo Bar Baz Qux Quux Quuz
。
$ ~/tmp/shuffle.perl
$VAR1 = [
'Foo',
'Bar',
'Baz',
'Qux',
'Quux',
'Quuz'
];
$ /usr/bin/perl --version
This is perl 5, version 32, subversion 0 (v5.32.0) built for x86_64-linux-gnu-thread-multi
我的@arr = [qw(Foo Bar Baz Qux Quux Quuz)];
这是具有单个元素(即element)的数组[qw(Foo Bar Baz Qux Quux Quuz)]
。因此,这里没有什么可以洗牌的。您可能想要的是:
my @arr = qw(Foo Bar Baz Qux Quux Quuz);
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句