Hej alle,

Jeg forsøger at skrive en perl script, der vil tage brugerinput som en streng og kravle strengen og udskrive resultatet.
Bemærk: Jeg kan ikke bruge shuffle-funktion .... hjælp til loop.

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

Hvis du har perl 5.8.0 eller nyere din burde have shuffle. Hvis du ikke kan bruge shuffle, hvorfor ikke?

Den enkleste måde er at sløjfe gennem array bytter hvert punkt med et andet element i en tilfældig position. Bemærk, at array er indekseret fra 0, ikke 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";

Jeg havde ikke hørt om shuffle så jeg googled en smule.

perlfaq4 - perldoc.perl.org