Привет всем,

Я пытаюсь написать Perl скрипт, который будет принимать ввод пользователя в виде строки и карабканье строку и распечатать результат.
Примечание: Я не могу использовать функцию Shuffle .... используя для петель.

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

Если у вас есть Perl 5.8.0 или более поздней версии вашего следовало Shuffle. Если вы не можете использовать Shuffle, почему бы и нет?

Самый простой способ состоит в том, чтобы петля через массив обмен каждый пункт с другим пунктом в произвольном положении. Обратите внимание, что массив индексируется с 0, а не 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";

Я еще не слышал Shuffle поэтому я googled немного.

perlfaq4 - perldoc.perl.org