1行じゃなくても良いからタグを書いてHPを。

このエントリーをはてなブックマークに追加
135 ：274@scripts：
>>132
まったく、仕方ねぇから屑スクリプト組んでやったよ。

#!/usr/bin/perl

srand;
$j = int(rand(10) % 3);
$m = "（o^ｰ')p ｲｯﾃﾖｼ! ";
($j == 0) && ($ENV{'QUERY_STRING'} == 2) && ($m = "(ﾟ∀ﾟ)ｲｲ!");
($j == 1) && ($ENV{'QUERY_STRING'} == 0) && ($m = "(ﾟ∀ﾟ)ｲｲ!");
($j == 2) && ($ENV{'QUERY_STRING'} == 1) && ($m = "(ﾟ∀ﾟ)ｲｲ!");

print "Content-type: text/html\n\n";
print "<HTML><BODY>$m</BODY></HTML>";