パスワードジェネレータ
最近いろんなサービスに登録することが多いので書いてみた。
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;
他にもいろいろやり方がありそう。