09/03/09 14:18:59
こんな感じでどうだろ。
#!/usr/bin/perl
use LWP::UserAgent;
print "Content-Type: text/html\n\n";
$i = 0;
while (1) {
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "URLﾘﾝｸ($ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME})");
my $res = $ua->request($req);
$i = $i + 1;
print "$i,";
}
156:nobodyさん
09/04/01 11:52:26
俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。
157:nobodyさん
09/04/02 08:42:00
じゃエロ画像でもｒｙ