Perlでシンプルなパスワード生成
調べてみると
CPANにもたくさんあったし
独自実装してるサイトもたくさんあった
# CPANにありすぎると選びにくい
そのなかで
Perlでパスワード生成 - Noteless Notes
が非常に参考になった
こちらは文字数も文字種も決まっているので
もうちょっとシンプルに書いてみた
sub _gen_rand { my $length = 8; my $chars = [ 0..9, 'a'..'z', 'A'..'Z' ]; my $rand = ''; $rand .= $chars->[rand(scalar(@$chars))] for (1..$length); return $rand; }