Top > CGI(perl) > rand


rand( ランダムの範囲 )

#!/usr/bin/perl

$rand_value_int = int( rand(6) ) + 1;
$rand_value = rand(6) + 1;

print "Content-type:text/html\n\n";

printf( "rand_value_int = $rand_value_int" );
print "<br>";
printf( "rand_value = $rand_value" );

●出力結果
rand_value_int = 2
rand_value = 5.8487420138743

6を指定したら、0~5の間の乱数が取得できます。

乱数の取得はいろんな場面で利用価値があるので、覚えておきたい関数です。



Copyright © 2015 AchaPorutePiipo All Rights Reserved.