Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/perl/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Perl 如何使用cookie发出HTTP请求_Perl_Http - Fatal编程技术网

Perl 如何使用cookie发出HTTP请求

Perl 如何使用cookie发出HTTP请求,perl,http,Perl,Http,我正在尝试将一个简单的HTTP GET请求发送到http://server/?id=包含cookie。我已经找到了应该回答我问题的答案。但是下面的代码错误 无法连接到服务器:443(证书验证失败) 这很奇怪,因为我从未要求使用https #!/usr/bin/perl require HTTP::Request; require HTTP::Cookies; require HTTP::Message; require HTTP::Response; require HTTP::Headers;

我正在尝试将一个简单的HTTP GET请求发送到
http://server/?id=
包含cookie。我已经找到了应该回答我问题的答案。但是下面的代码错误

无法连接到服务器:443(证书验证失败)

这很奇怪,因为我从未要求使用https

#!/usr/bin/perl
require HTTP::Request;
require HTTP::Cookies;
require HTTP::Message;
require HTTP::Response;
require HTTP::Headers;
require LWP::UserAgent;

$ua = LWP::UserAgent->new();
$cookies = HTTP::Cookies->new();
$cookies->set_cookie(0,'sid','/','server');
$ua->cookie_jar( $cookies );
$response = $ua->get( 'http://server/?id=user' );
print $response->content();

据推测,服务器正在将HTTP请求重定向到HTTPS。
–Quentin

大概,服务器正在将HTTP请求重定向到HTTPS。那么perl在不通知我的情况下为我执行重定向吗?@Quentin啊,太好了,这解释了很多。我接受这个答案(我验证了它,服务器真的进行了重定向-我从未注意到)