perl做随机

suntoltti

@a = (0 .. 9, 'a' .. 'z');
$password = join '', map { $a[int rand @a] } 0 .. 7;
print "$password\n";

http://bbs3.chinaunix.net/viewth ... p%3Bfilter%3Ddigest