Using perl Syntax Highlighting
- my @array1 = ("test","test","test");
- my @array2 = ("test","test","test");
- my @array1_cleaned = repes(@array1);
- my @array2_cleaned = repes(@array2);
- for(@array1_cleaned) {
- print $_."\n";
- }
- print "\n";
- for(@array2_cleaned) {
- print $_."\n";
- }
- sub repes {
- my @array_to_clean = @_;
- my @array_cleaned;
- foreach $text ( @array_to_clean ) {
- push @array_cleaned, $text if not $wtf{$text}++;
- }
- return @array_cleaned;
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Sirve para borrar repetidos en dos arrays varias veces usando una función, el problema es que nunca funciona bien dos veces seguidas, no sé por qué, el resultado es solo "test" que indica que solo limpio el primer array. Debería devolver dos "test".
¿ Cuál es el problema ?