Re^4: Get just the unique value

in reply to Re^3: Get just the unique value
in thread Get just the unique value

OK, let me try again, I have a data structure like this:

my $data = [
   {
 
     'type' => 'Paper'
   },
   {

     'type' => 'Paper'
   },
   {

     'type' => 'Plastic'
   },   {

     'type' => 'Plastic'
   },   {

     'type' => 'Plastic'
   },   {

     'type' => 'Plastic'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
   {

     'type' => 'Cotton'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },
{

     'type' => 'Paper'
   },

];
[download]

I need to process this array and filter out the duplicated ones:

my $res;

 for my $entry (@$data) {
     
     #$entry->{type} = [] unless exists $entry->{type};

     push @$res, $res{$entry->{type}};
   
 }
print Dumper @$res;
[download]

I just cant get it to work.

Comment on Re^4: Get just the unique value Select or Download Code

Replies are listed 'Best First'.
Re^5: Get just the unique value by CountOrlok (Friar) on Apr 05, 2013 at 18:18 UTC
Use the code hdb posted	[reply]
Re^6: Get just the unique value by hdb (Monsignor) on Apr 05, 2013 at 18:35 UTC
Yes, I think it should work.	[reply]
Re^5: Get just the unique value by hdb (Monsignor) on Apr 05, 2013 at 18:22 UTC
I think if you feed your new structure to some of the proposals it will work...	[reply]
Re^6: Get just the unique value by Anonymous Monk on Apr 05, 2013 at 18:24 UTC
I tested, none of them work unfortunately, I will look also where.	[reply]
Re^7: Get just the unique value by CountOrlok (Friar) on Apr 05, 2013 at 18:27 UTC
Maybe if you gave us the desired output...	[reply]
Re^8: Get just the unique value by Anonymous Monk on Apr 05, 2013 at 18:59 UTC
Re^9: Get just the unique value by CountOrlok (Friar) on Apr 05, 2013 at 19:02 UTC
Re^7: Get just the unique value by hdb (Monsignor) on Apr 05, 2013 at 19:34 UTC
How about this? `my %types; my $res; foreach my $entry (@$data) { push @$res, $entry unless $types{$entry->{"type"}}++; } print Dumper $res;` [download]	[reply] [d/l]
Re^8: Get just the unique value by hdb (Monsignor) on Apr 05, 2013 at 19:43 UTC

In Section Seekers of Perl Wisdom