Re: replacement for LWP::Simple ?

I tried with comma, and I got:

Use of uninitialized value at /docs/cust-bin/test.cgi line 6. Content-
+type: text/html
[download]

so this time the error points to

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

Maybe the server somehow prevents LWP modules being executed ?
Jacek

Comment on Re: replacement for LWP::Simple ? Select or Download Code

Replies are listed 'Best First'.
Re: Re: replacement for LWP::Simple ? by Corion (Patriarch) on May 14, 2002 at 19:17 UTC
If you get the error `Use of uninitialized value at ...`, this always means that you tried to print (or otherwise use) something which had no value assigned to it (or the value `undef`). This has nothing to do with modules. My guess is, that your `get "http://www.ecst.csuchico.edu/";` fails for some reason (we won't find the reason as LWP::Simple is also simple in its error handling). So you could either double-check your url, or add a conditional to your code like the following : `my $myDocument = get "http://www.ecst.csuchico.edu/"; my $result; if ($myDocument) { # we got a response $result = $myDocument; } else { # Something went wrong $result = "<tt>There was a problem somewhere and I didn't get an ans +wer.</tt>"; }; print "Content-type: text/html\n\n"; print $result;` [download] `perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ; # The $d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider ($c = $d->accept())->get_request(); $c->send_response( new #in the HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' # web` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: replacement for LWP::Simple ?
by Corion (Patriarch) on May 14, 2002 at 19:17 UTC

If you get the error Use of uninitialized value at ..., this always means that you tried to print (or otherwise use) something which had no value assigned to it (or the value undef). This has nothing to do with modules.

My guess is, that your get "http://www.ecst.csuchico.edu/"; fails for some reason (we won't find the reason as LWP::Simple is also simple in its error handling). So you could either double-check your url, or add a conditional to your code like the following :

my $myDocument = get "http://www.ecst.csuchico.edu/";
my $result;

if ($myDocument) {
  # we got a response
  $result = $myDocument;
} else {
  # Something went wrong
  $result = "<tt>There was a problem somewhere and I didn't get an ans
+wer.</tt>";
};

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

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web
[download]

[reply]
[d/l]
[select]