cgi023 「変数　ランダムな数値」（05/02/08 Tue）

例えばサイコロ。1〜6のどれかがランダムに得られます。

#!/usr/local/bin/perl
$savefile = "save.txt";
open(file,"$savefile");
$test = <file>;
close(file);

$tekitou = int(rand 10);
$test = $test + $tekitou;

open(file,">$savefile");
print file "$test";
close(file);

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

黄枠がCGIファイルになります。

内容は「CGI011」とほぼ同じです。簡単に説明すると、

Perlパス、ログファイル読み、カウントアップ処理、ログファイル書き、カウンター表示

となります。CGI011と違うところは、カウントアップ処理の、

「$tekitou = int(rand 10);」という行です。ここでサイコロを振り、

0〜9という10個のランダムな数値を$tekitouに代入しています。

（rand 10 で、0〜9、rand 6 だと0〜5となります。）

そして、これまで1ずつ増えてたカウンタが、$tekitouずつ増える、

「適当に増えるカウンター」となります。

実際に、アクセスして更新を連打してみてください。

増え方が一定でないのがわかると思います。

さて、実際アクセスすると・・・

♪　結果表示　♪

153

また、適当な数値を、0〜9でなく、1〜10にしたい時は、

int(rand 10) +1　と書けば、いいわけです。

★　Top　★