CGIランダムURLジャンプ
CGIランダムURLジャンプ#!/usr/local/bin/perl#CGIランダムURLジャンプ▲(c)p4room(http://p4room.mda.or.jp/)@urls = ( #URLを配列に登録する "http://www.goo.ne.jp/", "http://www.yahoo.co.jp/", "http://japan.infoseek.com/");srand(time + $$); #乱数発生の準備$n = int(rand($#urls + 1)); #乱数発生print "Location: $urls[$n]\n\n"; #Locationを指定するexit;