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;

Answer 2

http::Request确实返回哈希值。

$ response-＆gt;内容有结果。

从链接：

$ r-＆gt;内容（$字节）这用于获取/设置内容，它继承自HTTP :: Message基类。有关可用于访问内容的详细信息和其他方法，请参阅HTTP :: Message。请注意，内容应该是一个字节字符串。 perl中的字符串可以包含字节范围之外的字符。 Encode模块可用于将这些字符串转换为字节串。

Answer 3

你需要这样做......

print $response->content();

...查看文档http://metacpan.org/pod/LWP#An-Example

Perl HTTP ::请求HASH错误？

3 个答案: