Re: Need help with removing duplicate hash keys from array of hashes

$ perl -le'
use Data::Dumper;
my $data = [ {
    prod_order => 702164,
    operation => 10,
    machine => "W01",
    }, {
    prod_order => 702164,
    operation => 10,
    machine => "W02",
    }, {
    prod_order => 702164,
    operation => 10,
    machine => "W01",
    }, {
    prod_order => 702164,
    operation => 10,
    machine => "W02",
    }, {
    prod_order => 702164,
    operation => 10,
    machine => "W03",
    }, {
    prod_order => 702164,
    operation => 100,
    machine => "W03",
    } ];

print Dumper $data;

@$data = do {
    my %seen;
    grep { !$seen{ $_->{ operation }, $_->{ machine } }++ } @$data
    };

print Dumper $data;
'
[download]

Comment on Re: Need help with removing duplicate hash keys from array of hashes Download Code