rand EXPR

広告

広告

解説

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";

参照

広告

Copyright (C) 2003-2006 七鍵 key@do.ai 初版:2003年07月07日 最終更新:2006年08月08日