重複值

Question

項目1：BOX1 項目2：BOX1

項目3：BOX2 項目4：BOX2

我有一個哈希值（如上所列）的形式的輸出 我想處理它，以便該輸出看起來就像是

BOX1 = {項目1，項目2} BOX2 = {項目3，項目4}

Answer 1

這是我可以根據您的要求做出最：

use strict; 
use warnings; 

use Data::Dumper; 

my %items = (
    Item1 => 'Box1', 
    Item2 => 'Box1', 

    Item3 => 'Box2', 
    Item4 => 'Box2', 
); 

my %boxes =(); 

foreach my $item_name (keys %items){ 
    push @{ $boxes{ $items{$item_name} } }, $item_name; 
} 

print "Boxes: ".Dumper(\%boxes); 

和打印：

Boxes: $VAR1 = { 
      'Box1' => [ 
         'Item1', 
         'Item2' 
        ], 
      'Box2' => [ 
         'Item4', 
         'Item3' 
        ] 
     };