Perl - 乱数(rand, srand) - marsonicの日記

【未完】
・perl 乱数(Google)
・perl rand(Google)
・perl srand(Google)
・乱数の取得
・簡単CGI 乱数 Part1
・簡単CGI 乱数 Part2

#!/usr/bin/perl
#↑パスはそれぞれの環境で変えてください。

use strict;
use warnings;

#今回はCGIで実験した。「.cgi」で保存してください。
#乱数の取得
print "Content-type:text/html\n\n";
print "<html><body>\n";

my $foo = rand;
print $foo."<br />";#これでは小数が表示されてしまう。

my $foo2 = int(rand);
print $foo2."<br />";#このままではずっと0である。

my $foo3 = int(rand(10));
print $foo3."<br />";#0以上10より小さい。つまり、0から9までのどれかをランダムで出現させる
print $foo3 + 1;#上記のことから+1することで、1から10までの数値をランダムで出現させることができる。

print "</body></html>\n";