我在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)
是的哈希.你必须访问如下.
print $res->decoded_content(); ## if gziped print $res->content(); print $res->status_line;
您还可以使用数据转储器打印整个$ res并观察它实际存在的内容.
use Data::Dumper; print Dumper $res;