2019-05-23 perlの乱数がrand() perl 引数で最大値指定。 引数がないなら1と同じ。 my $num = rand();返り値は小数だよ。 ネタ元 https://www.javadrive.jp/perlfunc/math/index8.html