http://www.perlmonks.org?node_id=522190


in reply to Re: Checking for undef after performing get()
in thread Checking for undef after performing get()

That doesn't surprise me, but any ideas regarding the question itself?
  • Comment on Re^2: Checking for undef after performing get()

Replies are listed 'Best First'.
Re^3: Checking for undef after performing get()
by trammell (Priest) on Jan 10, 2006 at 15:08 UTC
    Sure; I'd do something like:
    my $doc = get(...); warn "get() failed" unless $doc;
    I'm assuming that the page actually has content here. If it's an empty string, the test should be
    ... unless defined($doc);
    The documenation in LWP::Simple does suggest using LWP::UserAgent if you need more information about the return code. Just a thought.
      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; }
      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";
      Otherwise you receive a 500 Internal Server Error. Thanks again for the help!