パスワードジェネレータ

最近いろんなサービスに登録することが多いので書いてみた。

use strict;
use warnings;

my $figure = shift || 8;

die "please input numbers only" unless ($figure =~ m/^[0-9]+$/);

my @chars = ('a'..'z', 'A'..'Z', 0..9);
my $pass = '';

while ($figure--) {
    $pass .= $chars[int rand(scalar @chars)];
}

print $pass;

他にもいろいろやり方がありそう。