我有一个带有特定数据集的哈希。我需要操纵哈希值,以便获得如下结果:
预期输出:
key_1=Cell1
Val_1=C3#C4#C1#C2
脚本:
#!/usr/bin/perl
use strict; use warnings;
use Data::Dumper;
use List::Util qw /uniq/;
my %hash = (
'Cell1' => {
'A' => [ 'C1','C2','C1','C2' ],
'B' => [ 'C3','C3','C4','C4' ]
}
);
print Dumper(\%hash);
my $i = 0;
foreach my $key (keys %hash) {
++$i;
print "key_$i=$key\n";
foreach my $refs (keys %{ $hash{$key} }) {
print "Val_$i=", join('#', uniq @{$hash{$key}{$refs}})."\n";
}
}
电流输出:
key_1=Cell1
Val_1=C3#C4
Val_1=C1#C2
我怎样才能在这里得到预期的输出?