http://qs1969.pair.com?node_id=433911


in reply to LWP post

check LWP::UserAgent
an example:
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");

my $req = HTTP::Request->new(POST => 'http://search.cpan.org/search');
$req->content_type('application/x-www-form-urlencoded');
$req->content('query=libwww-perl&mode=dist');

my $res = $ua->request($req);
if ($res->is_success) {
   print $res->content;
}
else {
   print $res->status_line, "\n";
}

[download]
Update: Fixed the 'my'

Replies are listed 'Best First'.
Re^2: LWP post
by Anonymous Monk on Feb 24, 2005 at 05:36 UTC

    Let me know what do do the follwoing : 

    my $ua->agent("MyApp/0.1 ");

    [download]

    and what is MyApp/0.1

[reply]
[d/l]
[select]

      (The my shouldn't be there.)

      The line is optional. It tells LWP what to put in the User-Agent field of the HTTP request, which is pretty much a free-format field. The default is indicates LWP is being used and which version of LWP is being used.

      Some web servers use this to return content specific for the browser identified by the string. Some web servers log this to monitor which browsers its users use.

[reply]
[d/l]

In Section Seekers of Perl Wisdom