2007-03-20から1日間の記事一覧
最近いろんなサービスに登録することが多いので書いてみた。 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 ($fig…
最近いろんなサービスに登録することが多いので書いてみた。 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 ($fig…