como desorganizar un arreglo ?

[caliche]

Hola tengo un arrego en la variable

@arreglo

existe una funcion que me desordene los elementos de ese arreglo ?

alguno de ustedes me podria colaborar con algun codigo ?

Un codigo que coja un arreglo dado y lo entrege en

@arreglo2

con los mismos elementos pero en un orden totalmente aleatorio..

Gracias por su ayuda

[kidd]

Tienes algunas opciones, selecciona la que más te guste:

Shuffle de Fisher Yates

Código:

mezclar_array(\@arreglo);


sub mezclar_array {

my $array = shift;
my $i;

    for ($i = @$array; --$i; ) {
        my $j = int rand ($i+1);
        next if $i == $j;
        @$array[$i,$j] = @$array[$j,$i];
    }
}

Con el módulo List::Util

Código:

use List::Util shuffle;

@arreglo2 = shuffle @arreglo;

SALUDOS

[caliche]

El metodo Shuffle de Fisher Yates es muy sencillo y a pesar de esto me tire mucho tiempo trantando de imaginarme un metodo y no pude,

muchas gracias kidd eres un duro y el metodo que hicieron fisher y yates es muy bueno y optimo

nuevamente gracias

[kidd]

Que bueno que te solucionó el problema, y no olvides en visitar el foro de Perl en Español ;)

http://perlenespanol.baboonsoftware.com/foro/

Saludos