Hi all,

Próbálom írni perl parancsfájl kerül felhasználói a húrt és tülekedés a string és a nyomtatási eredmény.
Megjegyzés: nem tudom használni .... shuffle funkció segítségével a hurok.

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";
}

Ha van perl 5.8.0 vagy újabb el kellett volna shuffle. Ha nem tudod használni shuffle, miért nem?

A legegyszerűbb módja, ha hurkot az a tömb egyes tételek swapping másik elem véletlenszerű helyzetben. Ne feledje, hogy a tömb indexelt 0, 1 nem.

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";

Én még nem hallottam Shuffle hát googled egy kicsit.

perlfaq4 - perldoc.perl.org