パスワードの生成

per

String::Random を使えばいいのかなーと思ってたけど、String::MkPasswd っていうまんまずばりがあった。

#!/usr/bin/perl
use strict;
use warnings;
use String::MkPasswd qw/mkpasswd/;

print mkpasswd(
              -length     => 8,
              -minspecial => 0,
              );

minspecial は、数字やアルファベット以外を最低何文字使うかってことなので、なしにしといた。