Re: LWP post


Keep It Simple, Stupid
	PerlMonks

Re: LWP post

by esskar (Deacon)

on Feb 24, 2005 at 00:09 UTC ( #433911=note: print w/replies, xml )

Need Help??

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'

Comment on Re: LWP post Download Code

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]
Re^3: LWP post by ikegami (Patriarch) on Feb 24, 2005 at 05:46 UTC
(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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://433911]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others lurking in the Monastery: (7)

As of 2023-03-22 08:42 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?