我在这里有一段工作代码,我将六个哈希的键一起比较,以找到它们之间共有的键。然后,我将每个散列中的值组合成一个新散列中的值。我想做的是使它可扩展。我希望能够轻松地将 3 个哈希值与 100 个哈希值进行比较,而无需返回我的代码并对其进行更改。关于我将如何实现这一目标的任何想法?其余代码已经适用于不同的输入量,但这是让我卡住的部分。
my $comparison = List::Compare->new([keys %{$posHashes[0]}], [keys %{$posHashes[1]}], [keys %{$posHashes[2]}], [keys %{$posHashes[3]}], [keys %{$posHashes[4]}], [keys %{$posHashes[5]}]);
my %comboHash;
for ($comparison->get_intersection) {
$comboHash{$_} = ($posHashes[0]{$_} . $posHashes[1]{$_} . $posHashes[2]{$_} . $posHashes[3]{$_} . $posHashes[4]{$_} . $posHashes[5]{$_});
}