#!/usr/bin/perl -- use strict; use warnings; use LWP::Simple qw! $ua !; use Time::HiRes qw! time !; Main( @ARGV ); exit( 0 ); sub Main { print time, "\n"; $ua->timeout( 1/1000000 ); $ua->show_progress(1); $ua->get(q!http://example.com/!); print time, "\n"; } __END__ 1301533357.73438 ** GET http://example.com/ ==> 500 Can't connect to example.com:80 (ti +meout) 1301533357.96767
In reply to Re^2: Hard timeout for LWP::UserAgent or similar
by Anonymous Monk
in thread Hard timeout for LWP::UserAgent or similar
by camelobserver
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |