#!/usr/bin/perl #randは()で指定した数まで乱数を発生させる関数です。 #intは引数の少数部分を切り捨てて整数にする関数。 #出てきた乱数を$ranに代入。 $ran = int(rand(3)); #外部のhtmlファイルを読み込み #0.html 1.html 3.html三種類をランダムで一つ読み込み。 open(HTML, "$ran.html"); @log = ; close(HTML); #HTMLの表示 print "Content-type: text/html\n\n"; print <<"PP"; @log PP exit; __END__