Another Way
use strict;
my @Ary = qw ( a b c d e f g h );
for(@Ary) {
print;
}
print"\n";
fisher_yates_shuffle(\@Ary);
for(@Ary) {
print;
}
print"\n";
sub fisher_yates_shuffle {
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];
}
}
HTH
"Tom Allison" <[EMAIL PROTECTED]> wrote in message
news:3DD3B716.1070705@;tacocat.net...
> How can create a random string, similar to MD5 hash, but with a
> much smaller number of characters? Maybe 8 characters..
> --
> You're growing out of some of your problems, but there are others that
> you're growing into.
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
