乱数の取得

---

　randを使います。
　同じ乱数列が欲しい場合はsrandを最初に呼び出します。
　Perlのバージョンが5.004より前の場合はrandで同じ乱数列が返ってくるので、srand(time)などで適当な乱数列を設定して下さい。

use strict;
use warnings;

# 乱数の取得
my $foo = rand;
print $foo, "\n";
print "\n";

# 1〜100の乱数を10個取得
foreach (1..10) {
    my $bar = int(rand 100) + 1;
    print $bar, "\n";
}
print "\n";

# 1〜100の乱数を10個取得(毎回同じ値)
srand 0;
foreach (1..10) {
    my $bar = int(rand 100) + 1;
    print $bar, "\n";
}
print "\n";

---

関連項目

・rand関数
・srand関数
・メルセンヌ・ツイスター法による乱数取得
・ランダムな文字列の取得