 乱数を生成する
Perl から乱数を発生させる場合には rand 関数を使用します。 rand 関数は引数に指定した未満の数値を発生させます。 例えば 引数に1 を指定すると 0 以上 1 未満のランダムな値を返します。
$HIGHT_VALUE = 10;
$LOW_VALUE = 1;
for ( 1..10 ) {
print int(($HIGHT_VALUE - $LOW_VALUE + 1) * rand(1) + $LOW_VALUE)."\n";
}
上記では $HIGHT_VALUEに乱数として発生させる最大の値を、$LOW_VALUEに最小の値を設定しいます。この値を変えることで任意の範囲の乱数を取得する事が出来ます。
|
