Foro - Perl en Español

por **BigBear** » 2017-03-27 20:34 @899

Hola, tengo esta función:

Sintáxis: [ Descargar ] [ Ocultar ]

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 ?

La variable %wtf no se inicializa entre ejecuciones de la subrutina, por lo que va acumulando lo que ve. El segundo "test" no se ve en la segunda ejecución porque ya lo tiene "almacenado" de la primera ejecución. La solución es insertar un my %wtf; antes del bucle.

Este tipo de cosas te las avisaría el propio Perl si hubieras puesto use strict; use warnings; al principio del programa, algo muy útil en la fase de desarrollo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
 
my @array1 = qw(test test test);
my @array2 = qw(test test test);
 
my @array1_cleaned = repes(@array1);
my @array2_cleaned = repes(@array2);
 
say for @array1_cleaned;
print "\n";
say for @array2_cleaned;
 
sub repes {
    my @array_to_clean = @_;
    my @array_cleaned;
 
    my %wtf;
    for my $text (@array_to_clean) {
        push @array_cleaned, $text if not $wtf{$text}++;
    }
 
    return @array_cleaned;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2017-03-28 16:09 @715

Ok, gracias por la ayuda, explorer.

Foro - Perl en Español

Función para borrar repetidos

Función para borrar repetidos

Publicidad

Re: Función para borrar repetidos

Re: Función para borrar repetidos

¿Quién está conectado?