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);

次に、キーをインターカレートするこれら2つの配列を印刷したいと思います。例: 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;