Perl HTTP::Request 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::Response=HASH(0x987f8d8)

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

Answer 1

是的，它是一个哈希值。你必须像下面那样访问。

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

print $res->content();

print $res->status_line;

您也可以使用 Data Dumper 打印整个 $res 并观察它实际保存的内容。

use Data::Dumper;
print Dumper $res;