Re: fastest method to check if a URL is alive

[Bradford Ritchie]

I tried your code and got it to work by inserting a "chomp;" in your while loop.  I 
don't understand chomp/chop well enough to figure out how to imbed it within the print 
line, though.  Give it a shot if you think it will run faster that way.

-- Brad


- Original Message - 
From: "Drew Cohan" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, June 21, 2001 3:52 AM
Subject: fastest method to check if a URL is alive


> Hi,
> 
> Could some kind soul please tell me why the following
> prints nothing for valid URLs?  I'm trying to write a
> small, tight, and very fast script that'll check to
> see if a URL is alive in the least amount of time
> possible (and avoid using PING).  I need to check
> thousands of URLs.  It seems to me that this should be
> a relatively simple affair?  Below is some code I've
> tried to adapt from the cookbook (example 20.1).  I
> was also intrigued by the HTML:Status class mentioned
> in the perldoc, but I can't seem to figure out how to
> use it without employing the seemingly overkill
> LWP:UserAgent.  
> 
> thanks in advance,
> 
> Drew.
> 
>  snip 
> #!/usr/bin/perl -w
> 
> $|++;
> 
> use warnings;
> use strict;
> use diagnostics;
> 
> use LWP::Simple;
> 
> while (<>){
> print if (defined (my $content = get $_));
> }
>  end of snip 
> 
> __
> Do You Yahoo!?
> Get personalized email addresses from Yahoo! Mail
> http://personal.mail.yahoo.com/

fastest method to check if a URL is alive

[Drew Cohan]

Hi,

Could some kind soul please tell me why the following
prints nothing for valid URLs?  I'm trying to write a
small, tight, and very fast script that'll check to
see if a URL is alive in the least amount of time
possible (and avoid using PING).  I need to check
thousands of URLs.  It seems to me that this should be
a relatively simple affair?  Below is some code I've
tried to adapt from the cookbook (example 20.1).  I
was also intrigued by the HTML:Status class mentioned
in the perldoc, but I can't seem to figure out how to
use it without employing the seemingly overkill
LWP:UserAgent.  

thanks in advance,

Drew.

 snip 
#!/usr/bin/perl -w

$|++;

use warnings;
use strict;
use diagnostics;

use LWP::Simple;

while (<>){
print if (defined (my $content = get $_));
}
 end of snip 

__
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/