Try:
random =>
my @random = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
my $rand = '';
for (1 .. 8) {
$rand .= $random[rand @random];
}
return $rand;
}
Cheers,
Alex
--
Gossamer Threads Inc.
random =>
Code:
sub { my @random = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
my $rand = '';
for (1 .. 8) {
$rand .= $random[rand @random];
}
return $rand;
}
Cheers,
Alex
--
Gossamer Threads Inc.