perl - 如何在 Perl 中以完全相同的方式对两个数组进行洗牌？

Question

有谁知道如何在 Perl 中以完全相同的方式随机打乱两个数组？例如，假设我有这两个数组:

洗牌前:数组 1:1、2、3、4、5数组 2:a、b、c、d、e

洗牌后:数组 1: 2, 4, 5, 3, 1数组 2:b、d、e、c、a

因此每个数组中的每个元素都绑定(bind)到其等效元素。

Answer 1

尝试(类似)这个:

use List::Util qw(shuffle);
my @list1 = qw(a b c d e);
my @list2 = qw(f g h i j);
my @order = shuffle 0..$#list1;
print @list1[@order];
print @list2[@order];