perl - 为什么这个 Perl 洗牌函数不洗牌？

Question

#!/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

Answer 1

my @arr = [qw(Foo Bar Baz Qux Quux Quuz)];

这是一个只有一个元素的数组，即元素 [qw(Foo Bar Baz Qux Quux Quuz)]。因此这里没有什么可以洗牌的。您可能想要的是:

 my @arr = qw(Foo Bar Baz Qux Quux Quuz);