Re^7: Get just the unique value

How about this?

my %types;
my $res;
foreach my $entry (@$data) {
    push @$res, $entry unless $types{$entry->{"type"}}++;
}

print Dumper $res;
[download]

Comment on Re^7: Get just the unique value Download Code

Replies are listed 'Best First'.
Re^8: Get just the unique value by hdb (Monsignor) on Apr 05, 2013 at 19:43 UTC
Or this without helper hash? `my $res; foreach my $entry (@$data) { push @$res, $entry unless grep { $_->{"type"} eq $entry->{"type"} +} @$res; } print Dumper $res;` [download]	[reply] [d/l]