http://qs1969.pair.com?node_id=11138344

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!

I need to get rid of the duplicates coming from an array, as a sample here is some data: 


 $VAR1 = {
           'ID' => '11',
           'Name' => 'Mary',
           'CC' => 'X5667'
         };
 $VAR2 = {
           'ID' => '10',
           'Name' => 'Joe',
           'CC' => 'X456'
         };
 $VAR3 = {
           'ID' => 'X2',
           'Name' => 'Carl',
           'CC' => 'P45'

         };
 $VAR4 = {
           'ID' => '12',
           'Name' => 'Jim',
           'CC' => 'PK1'
          ;
 $VAR5 = {
           'ID' => '11',
           'Name' => 'Mary',
           'CC' => 'X5667'
         };

[download]

Is there a better or correct way of doing this?
#!/usr/bin/perl


use strict;
use warnings;

use Data::Dumper;


 foreach my $st ( @{ $stuff } ) {


   next if $st->{ID};
   next if $st->{Name};
   next if $st->{CC};

   print $st->{ID} - $st->{Name} - $st->{CC};
   
 }

[download]

Thanks for looking!

Replies are listed 'Best First'.
Re: Duplicated data in array.
by LanX (Saint) on Nov 02, 2021 at 19:31 UTC
    Your data is missing a curly again.

    anyway, others may profit from this

    use strict;
use warnings;
use Data::Dump qw/pp dd/;

my @in =
  (
   { CC => "X5667", ID => 11, Name => "Mary" },
   { CC => "X456", ID => 10, Name => "Joe" },
   { CC => "P45", ID => "X2", Name => "Carl" },
   { CC => "PK1", ID => 12, Name => "Jim" },
   { CC => "X5667", ID => 11, Name => "Mary" },
  );


# --- Version1 ID deserves its name
my %seen1;
my @out1 = grep { ! $seen1{ $_->{ID} }++ } @in;
pp \@out1;


# --- Version2 combine values to one multi-dim key
my %seen2;
my @out2 = grep { ! $seen2{ $_->{ID}, $_->{Name}, $_->{CC} }++ } @in;
pp \@out2;

    [download]

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery

[reply]
[d/l]
      Your data is missing a curly again

      Some would say consistency is a good thing...

[reply]
        “A foolish consistency is the hobgoblin of little minds, adored by little statesmen and philosophers and divines." – Ralph Waldo Emerson

        The cake is a lie.
        The cake is a lie.
        The cake is a lie.

[reply]
      Would this be possible to be stored in reference? Getting confused with the data type.
      my %seen1;
my $out1 = grep { ! $seen1{ $_->{ID} }++ } @in;
pp @{ $out1 };

      [download]
[reply]
[d/l]

        Untested: 

        my %seen1;
my @out1 = grep { ! $seen1{ $_->{ID} }++ } @in;
my $arrayref = \@out1;
pp $arrayref;

        [download]

        Update: Perhaps a bit late for this afterthought, but the general form of this question is "How do I create a reference to X?" Please see perlref and perlreftut. See also Perl Data Structures Cookbook (perldsc) for dealing with complicated referential structures.

        Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]
[select]
[reply]
[d/l]
Re: Duplicated data in array.
by hippo (Bishop) on Nov 02, 2021 at 22:12 UTC
[reply]
Re: Duplicated data in array.
by Anonymous Monk on Nov 02, 2021 at 19:07 UTC
    As usual you are showing nonsense code to pretend you made any effort.
[reply]

Back to Seekers of Perl Wisdom