Code: Alles auswählen
my @array = ('test','test1','test');
@array = array_unique(@array);
print @array;
sub array_unique {
my %all;
$all{$_}=0 for @_;
return (keys %all);
}
Code: Alles auswählen
my @array = ('test','test1','test');
@array = array_unique(@array);
print @array;
sub array_unique {
my %all;
$all{$_}=0 for @_;
return (keys %all);
}