Foro - Perl en Español

por **BigBear** » 2011-06-21 18:05 @795

Tengo la siguiente función que borra repetidos en un array

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub repes {
 
    my @no = ( "no", "si" );
 
    foreach my $palabra (@_) {
        next if $repety{$palabra}++;
        push @revisado, $palabra;
    }
    return @revisado;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Mi duda es: ¿cómo tengo que hacer qué para que la función borre los repetidos
pero no los que están en el array @no?

¿ Alguien sabe ?

sub repes {
 
    my @no = ( "no", "si" );
 
    foreach my $palabra (@_) {
        if ( $repety{$palabra}++ ) {
            foreach (@no) {
                if ( $_ eq $palabra ) { push @revisado, $palabra; }
                else                  { next; }
            }
        }
        else {
            push @revisado, $palabra;
        }
    }
    return @revisado;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2011-06-21 20:11 @883

Mi cerebro a esta hora de la noche se está consumiendo poco a poco desde
esta mañana. El problema que tengo ahora es que tengo el siguiente array

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @test = ("probar
"doddy","probarx","doddy","control","mandar","probar","doddy","probarx","doddy","con","forear");
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Mi plan es que quede así pero por la función quede así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

probar

doddy

probarx

doddy

control

mandar

con

forearColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pero no sé cómo ordenarlo y quede bien. ¿ Alguien tiene una idea ?

por **explorer** » 2011-06-22 04:51 @244

Pero... ¿qué reglas hay que aplicar para que salga ese listado?

Con estas líneas, se saca algo parecido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my @test = (
    "probar", "doddy", "probarx", "doddy", "control", "mandar",
    "probar", "doddy", "probarx", "doddy", "con",     "forear",
);
 
my %no_filtrado = ("doddy" => 1);
 
my %visto;
 
my @filtrado = grep { $no_filtrado{$_} or ! $visto{$_}++ } @test;
 
print "@filtrado\n";
 
__END__
probar doddy probarx doddy control mandar doddy doddy con forear
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2011-06-22 09:09 @423

Ese es el problema, explorer, veré cómo puedo evitar esto. Gracias a los dos por contestar.

Foro - Perl en Español

Función para borrar pero con excepciones

Función para borrar pero con excepciones

Publicidad

Re: Función para borrar pero con excepciones

Re: Función para borrar pero con excepciones

Re: Función para borrar pero con excepciones

Re: Función para borrar pero con excepciones

¿Quién está conectado?