スカラー変数に文字をランダムに代入

質問

スカラー変数に英数文字を6文字ランダムに
代入したいのですが、どうすればいいですか？

よろしくお願いします。

回答No.1

BLUEPIXY

@table = ('A' .. 'Z', 'a' .. 'z' ,'0' .. '9');
for(1..6){
$SixLetter .= $table[rand @table];
}
print $SixLetter;