Re^3: Checking for undef after performing get()

Sure; I'd do something like:

my $doc = get(...);
warn "get() failed" unless $doc;
[download]

I'm assuming that the page actually has content here. If it's an empty string, the test should be

... unless defined($doc);
[download]

The documenation in LWP::Simple does suggest using LWP::UserAgent if you need more information about the return code. Just a thought.

Comment on Re^3: Checking for undef after performing get() Select or Download Code

Replies are listed 'Best First'.
Re^4: Checking for undef after performing get() by sawtooth (Initiate) on Jan 11, 2006 at 16:21 UTC
Yes, LWP::UserAgent was the ticket. This was the ideal solution that I was seeking: `my $ua = LWP::UserAgent->new; my $response = $ua->get($url); if ($response->is_success){ (good things happen) } else { my $failmsg= ($response->status_line); (print the $failmsg) return; }` [download] BUT, for this to work, the web based script, after being triggered by the get(), must return some response that is part of the HTTP protocol. I added this line to the top of the web based script: `print "Content-type: text/html\n\n";` [download] Otherwise you receive a 500 Internal Server Error. Thanks again for the help!	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Checking for undef after performing get()
by sawtooth (Initiate) on Jan 11, 2006 at 16:21 UTC


 my $ua = LWP::UserAgent->new;
 my $response = $ua->get($url);
 if ($response->is_success){
    (good things happen) 
 } else {
     my $failmsg= ($response->status_line);
    (print the $failmsg)
    return;                           
 }
[download]

print "Content-type: text/html\n\n";
[download]

[reply]
[d/l]
[select]