« おいおい勧誘かよ | メイン | 早速meshiプログラムを使用 »
2004年01月27日
meshiプログラム完成
某K氏と一緒に飯を食いに行くときは、行き先に悩むのです。ということで、行き先を決めるプログラムを作成しました。
#!/usr/bin/perl
open(IN,"meshi.txt");
@meshi = <IN>;
close(IN);
srand(time());
$a = int(rand(@meshi)) * 7 + 3;
for ($i=0; $i<$a; $i++) { $n = int(rand(@meshi)); }
print "Content-type: text/html\n\n";
print "今日の食事場所決定！<br>\n";
print "Today is $meshi[$n]";
exit;
meshi.txt には、行くであろう行き先を1行に1つずつ書いておきます。
Perlの乱数は結構偏りがあったような気がします。また、元の式が不変であれば、いくら演算しても無駄のような気もしますが、気分的に乱数を発生できた気分になれます。まぁ。行き先が決まればどうでもよいのですｗ
さて、行き先リストをちゃんと作るかな。（←これが難しい！）
2004年01月27日 23:06 | University