http://www.perlmonks.org?node_id=1027180


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

It isn't clear what you want for output. You want to remove entries in the original data where type is duplicated, it seems, but how do you want to handle the case where reference or name is different? Which entry in the arrayref do you want to choose?

Replies are listed 'Best First'.
Re^4: Get just the unique value
by Anonymous Monk on Apr 05, 2013 at 17:45 UTC
    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.
[reply]
[d/l]
[select]
      Use the code hdb posted
[reply]

        Yes, I think it should work.

[reply]

      I think if you feed your new structure to some of the proposals it will work...

[reply]
        I tested, none of them work unfortunately, I will look also where.
[reply]

In Section Seekers of Perl Wisdom