通过哈希键不存在重复值的属性,可以去掉数组中的重复值
#!/usr/bin/perl
use strict;
my %hash = ();
my @array = (2,3,4,6,89,56,35,38,4,6,89);
foreach my $e (@array){
$hash{$e} +=1;
}
my @keys = keys %hash;
foreach my $key (@keys){
print "$key\n";
}
通过哈希键不存在重复值的属性,可以去掉数组中的重复值
#!/usr/bin/perl
use strict;
my %hash = ();
my @array = (2,3,4,6,89,56,35,38,4,6,89);
foreach my $e (@array){
$hash{$e} +=1;
}
my @keys = keys %hash;
foreach my $key (@keys){
print "$key\n";
}