Perlについての質問箱 37箱目

Perlについての質問箱 37箱目at TECH

Perlについての質問箱 37箱目 - 暇つぶし2ch168:デフォルトの名無しさん
08/08/18 21:50:53
sub genpass {
　　 my @chars = (0..9, "A".."Z", "a".."z");
　　 join "", map { $chars[rand(@chars)] } 1..8;
}
print genpass(), "\n";

次ページ