Petr Vileta wrote:
Petr, that's a great example. Thanks for contributing.
I have a couple style questions.
: #!/usr/bin/perl
: use strict;
: use LWP::UserAgent;
: require HTTP::Headers;
Why "use" LWP::UserAgent and "require" HTTP::Headers?
Why not require or use both? How do you decide when to use
a module and when to require one?
: my $content = readweb('http://www.google.com');
: print $content;
:
: sub readweb {
: my $url=shift;
: my $ua = LWP::UserAgent->new(timeout => 600);
: my $myagent='Mozilla/4.0 (compatible; My_reader; Linux)';
: $ua->agent($myagent);
: my $req = new HTTP::Request GET => $url;
: $req->headers->header(Accept => "text/html, text/plain, image/*,
*/*");
: $req->headers->header(Connection => "Keep-Alive");
: my $res = $ua->request($req);
: if ($res->is_error*1 > 0) {
Why multiply the result by 1? It works without doing that. Are
you trying to force scalar context, perhaps?
: return ($res->code);
: }
: return $res->content;
: }
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
