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;
}