Foro de programacion

#1 (**permalink**) 05 de junio,2005, 22:17

Buenas,

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

Código:

my @array1 = ("1", "2");
my @array2 = ("2", "3");

if(@array1 eq @array2) {
       print "Arrays iguales\n";
}

else {
       print "Arrays distintos\n";
}

Podría ir comparando elemento a elemento, pero seguro que en Perl existe una forma mas facil :-)

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

MUCHAS GRACIAS!!

#2 (**permalink**) 07 de agosto,2005, 17:34

Primero, habrá que comprobar que tienen el mismo número de elementos:

Código:

die "No son iguales" if @array1 != @array2

Luego, habrá que comparar uno a uno todos los elementos de un array con los de otro. Si no están ordenados los elementos, los ordenamos antes.

Código:

$n = 0;
foreach ( 0..$#array1 )
{
    $n++ if $array1[$_] eq $array2[$_];
}
die "No son iguales" if $n != @array1;

Aunque quizás lo más cómodo sea utilizar el módulo Array::Compare