I am new to Perl and I want to write a Perl program that:
I have tried this:
#!/usr/bin/perl
require HTTP::Request;
require LWP::UserAgent;
$request = HTTP::Request->new(GET => 'http://www.google.com/');
$ua = LWP::UserAgent->new;
$ua->cookie_jar({file => "testcookies.txt",autosave =>1});
$response = $ua->request($request);
if($response->is_success){
print "sucess\n";
print $response->code;
}
else {
print "fail\n";
die $response->code;
}
pls tell how to set cookie in 'request' ie
how to set a cookie when we send HTTP::Request
i was expecting something like:
$request = HTTP::Request->new(GET => 'http://www.google.com/');
$ua = LWP::UserAgent->new;
$ua->new CGI::Cookie(-name=>"myCookie",-value=>"fghij");
is this possible??
As mentioned cookies are in HTTP::Cookies:
You need to create a cookie jar
You set the value of the cookies to put in the jar
You then associate that jar with your user agent
For example:
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new();
$cookies->set_cookie(0,'cookiename', 'value','/','google.com',80,0,0,86400,0);
$ua->cookie_jar($cookies);
# Now make your request
set_cookie
has a rather large number of arguments:
set_cookie( $version, $key, $val, $path, $domain, $port, $path_spec, $secure, $maxage, $discard, \\%rest )
This is because the cookie jar is designed from the point of view of a browser (a UserAgent), rather than a single request. This means not all the arguments are so important in this case.
The ones you need to get right are $key, $val, $path, $domain, $port.
Regarding the:
500 Can't connect to www.google.com:80 (Bad hostname 'www.google.com')
It means that LWP can't lookup the address for Google. Are you behind a web proxy? If so you will need to set your proxy in the UA too using something like:
$ua->proxy(['http', 'https'], ' http://proxyhost.my.domain.com:8080/ ');
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.