Salut à tous,

Je suis en train d'écrire un perl script qui va prendre l'entrée de l'utilisateur comme une chaîne et brouiller la chaîne et d'imprimer le résultat.
Note: je ne peux pas utiliser la fonction shuffle .... utilisant boucle.

so here is example.
Enter a String: abcdef

Print the Result: debacf 

Enter a String: abcdef

print the Result: cdabef

print "Enter a string:   ";
$sString = <STDIN>;

chomp($sString);

print "String = $sString\n";

$iLength = length($sString);
@array = split(//, $sString);

print "array = @array\n";

print "length = $iLength\n";
for ( $i = 1; $i <= $iLength; $i++ ){
$item = int(rand($#array));
print "@array[$item]\n";
}

Si vous avez des perl 5.8.0 ou plus tard, votre devrait avoir shuffle. Si vous ne pouvez pas utiliser shuffle, pourquoi pas?

Le plus simple est de parcourir le tableau chaque point d'échange avec un autre élément dans une position aléatoire. Notez que le tableau est indexé à partir de 0, pas 1.

for ( $i = 0; $i < $iLength; $i++ ){
        $random = int(rand($#array));
        $temp=$array[$random];
        $array[$random]=$array[$i];
        $array[$i]=$temp;
}
for ( $i = 0; $i < $iLength; $i++ ){
        print "$array[$i]";
}
print "\n";

Je ne l'avais pas entendu parler de shuffle donc je googled un peu.

perlfaq4 - perldoc.perl.org