広告
広告
0から 引数の値までの小数の乱数値を返します。引数は正の数です。引数を省略すると0から1までの値を返します。srand とともに利用します。
print rand(10)+1; # 1から10までの少数が出力される
# 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";
広告