Perlで電気ストーブを作る方法

Perlで電気ストーブを作る方法 at PHP

155:nobodyさん
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,";
}

次ページ

続きを表示

1を表示