12桁のランダム文字列（forパスワード等）を吐くスクリプト

Perl

めもー！

use strict;
my @letter = ();
push @letter, ( 'a'..'z' );
push @letter, ( 'A'..'Z' );
push @letter, ( '0'..'9' );
my $length = scalar @letter;
my $result = '';
foreach ( 1..12 ) {
	$result .= $letter[int(rand()*$length)];
}
print $result;

2010-09-06追記

randを使うと、問題がありそうだから、重要な場所では使うべきではないです。
つまり、「Perlで」「rand()を」使っていると、再現される可能性が出てくるからです。
rand()の部分は、他のものを使うといいですよ、と。
404 Blog Not Found:perl - Math - Mersenne Twister を Pure Perlでとか。