Perl HTTP ::请求HASH错误？

Question

我在Perl中遇到HTTP :: Request有点困难,

我的脚本设置如下:

use CGI;
use MIME::Base64;
use HTTP::Cookies;
use HTTP::Request;
use LWP::UserAgent;

$request = HTTP::Request->new(GET => 'http://www.example.com/');

 $ua = LWP::UserAgent->new;
 $response = $ua->request($request);

print "$response";

当我在我的网站上运行脚本时,我收到如下消息:

HTTP ::响应= HASH(0x987f8d8)

(我试图让它"打印"example.com)

Answer 1

是的哈希.你必须访问如下.

print $res->decoded_content(); ## if gziped

print $res->content();

print $res->status_line;

您还可以使用数据转储器打印整个$ res并观察它实际存在的内容.

use Data::Dumper;
print Dumper $res;