rand EXPR
0 から 引数EXPR
の値までの小数の乱数値を返します(引数は正の数である必要があります)。引数を省略すると、0 から 1 までの値を返します。srand
とともに利用します。
randの使い方
# 1から10までの少数が出力される print rand(10)+1;
rand
を使ったパスワードの自動生成
# パスワードの自動生成 my ($result,$intval)=('',''); srand(time); while ( length($result) <= 8 ){ # ASCII英数字の文字コードを生成(48から122) $intval = int( rand(75) ) + 48; # 文字コード91から96、58から64は英数字以外の文字 # なので、文字コードの生成処理をやり直す next if ($intval >= 91 and $intval <= 96 ) or ($intval >= 58 and $intval <= 64); $result .= sprintf("%c", $intval); } print $result, "\n"; > Z2r9IqT9x