Unificar array
Esta pequena função elimina ocurrências duplicadas de elementos de um array.
sub uniquify{
my %return_these_keys;
for (@_){
$return_these_keys{$_}=1;
}
return keys %return_these_keys;
}
Esta pequena função elimina ocurrências duplicadas de elementos de um array.
sub uniquify{
my %return_these_keys;
for (@_){
$return_these_keys{$_}=1;
}
return keys %return_these_keys;
}