perl - 如何打印插入键的 2 个哈希？

Question

拜托，我正在通过以下方式初始化 2 个哈希：

$hash1{$key} = -9;
$hash2{$key} = -9;

然后我得到带有键顺序的数组@order：

my @order1 = sort {$a cmp $b} keys(%hash1);
my @order2 = sort {$a cmp $b} keys(%hash2);

然后我想打印这两个插入键的数组。示例：1º 散列的 1º 键，2º 散列的 1º 键，依此类推。

print(join("\t", @order1, @order2) . "\n"); #this will print the entire hash1 first and     then the hash 2

请问我该怎么做？

Answer 1

use List::MoreUtils qw( pairwise );
say join "\t", pairwise { $a, $b } @order1, @order2;