Foro - Perl en Español

por **Statyk** » 2005-06-05 17:16 @761

Buenas,

¿Cómo podría comprobar que dos arrays son iguales? He probado con lo siguiente, pero no funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @array1 = ( "1", "2" );
my @array2 = ( "2", "3" );
 
if ( @array1 eq @array2 ) {
    print "Arrays iguales\n";
}
else {
    print "Arrays distintos\n";
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Podría ir comparando elemento a elemento, pero seguro que en Perl existe una forma más fácil :-)

Por otra parte, puede que los elementos del array estén desordenados. ¿Como podría ordenarlos? Alfabéticamente, por ejemplo...

¡¡MUCHAS GRACIAS!!

$are_equal = compare_arrays( \@frogs, \@toads );
 
sub compare_arrays {
    my ( $first, $second ) = @_;
    local $^W = 0;                     # silence spurious -w undef complaints
    return 0 unless @$first == @$second;
    for ( my $i = 0; $i < @$first; $i++ ) {
        return 0 if $first->[$i] ne $second->[$i];
    }
    return 1;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Al terminar la variable $are_equal tendrá 0 si no son iguales y 1 si son iguales.

También en las siguientes ligas encontrarás varias maneras por medio de las cuales puedes comparar los elementos de un array:
http://perlmonks.org/index.pl?node_id=156564
http://perlmonks.org/index.pl?node_id=222071
http://www.stonehenge.com/merlyn/UnixReview/col35.html

Ahora, si quieres hacer un sort() de tu array te recomiendo que leas la última parte del último boletín de CaFe.pm en donde habla justamente acerca de las técnicas que hay para lograr eso: http://cafe.pm.org/boletines/CaFePerl-I ... y_de_all__

SALUDOS

Perl user · por **Perl user** » 2005-06-08 12:42 @570

Es mejor no reinventar la rueda, cuando el algoritmo es pequeño y aplica para ciertas características, pero si ya tienes herramientas como Array::Compare.
La vida es más sencilla

Saludos.

Sitio web · por **monoswim** » 2005-06-08 13:59 @624

¡¡¡ Welcome Back !!!

¡¡¡ Ya se te extrañaba !!!

Saludos

por **Statyk** » 2005-06-11 17:39 @777

Hola otra vez,

Gracias, Perl user, por la recomendación; ahora con ese módulo es mucho más sencillo :-)

Me ha surgido otra duda, la planteo en otro hilo. Saludos

Foro - Perl en Español

Comparar dos arrays

Comparar dos arrays

Publicidad

¿Quién está conectado?