Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
#! /usr/bin/perl -w 07.11.04 22:50 Число просмотров: 4661
Автор: Eugene Статус: Незарегистрированный пользователь
|
#! /usr/bin/perl -w
require LWP::UserAgent;
use HTTP::Request::Common;
use Time::HiRes qw(gettimeofday tv_interval);
my $ua = LWP::UserAgent->new( agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)', timeout => 10 );
while(my $proxy = <>) {
chomp $proxy;
$ua->proxy('http', "http://$proxy/" );
my $t0 = [gettimeofday];
my $r = $ua->request(GET "http://your.host.com/ok" );
unless( $r->code eq '200') {
print "$proxy\t0\t-1\n";
next;
}
my $status = -1;
$status = 1 if $r->content =~ /OK/;
print "$proxy\t$status\t".tv_interval($t0)."\n";
}
(c) legioneer
|
|
|