Come evitare di inserire valori duplicati in un array Perl

Question

Ho bisogno di aggiungere elementi univoci in un array da input che contengono diversi valori duplicati.

Come evitare di inserire valori duplicati in un array Perl?

Answer 1

è sufficiente utilizzare hash come questo:

my %hash; 
$hash{$key} = $value; # you can use 1 as $value 
... 

Questo sovrascriverà automaticamente duplicati delle chiavi.

Quando è necessario stamparla, è sufficiente utilizzare:

foreach my $key (keys %hash) { 
    # do something with $key 
} 

Se è necessario ordinare le chiavi, utilizzare

foreach my $key (sort keys %hash) ... 

Answer 2

push(@yourarray, $yourvalue) unless grep{$_ == $yourvalue} @yourarray; 

Questo controlla se il valore è presente nella matrice prima spingendo. Se il valore non è presente, verrà spinto.

Se il valore non è numerico, utilizzare eq anziché ==.

Answer 3

utilizzando ~~ possiamo versione minima Perl è 5.10.1

use v5.10.1; 
use strict; 
use warnings; 

my @ARRAY1 = qw/This is array of backup /; 
my @ARRAY2; 


my $value = "version.xml" ; 


sub CheckPush($$) 
{ 

my $val = shift (@_); 
my $array_ref= shift (@_); 

    unless ($val ~~ @$array_ref) 
    { 
     print "$val is going to push to array \n"; 
     push(@$array_ref,$val); 
    } 
return (@$array_ref); 
} 

@ARRAY1 = CheckPush($value,\@ARRAY1); 
print "out \n"; 
foreach $_ (@ARRAY1) { 
print "$_ \n"; 
} 

@ARRAY2 = CheckPush ($value,\@ARRAY2); 
print "out2 \n"; 
foreach $_ (@ARRAY2) { 
print "$_ \n"; 
}