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;

Answer 2

http :: Request確實返回一個哈希值。

$ response-> content有結果。

從鏈接：

$ r-> content（$ bytes）這用於獲取/設置內容，它繼承自HTTP :: Message基類。 有關可用於訪問內容的詳細信息和其他方法，請參閱HTTP :: Message。 請注意，內容應該是一個字節字符串。 perl中的字符串可以包含字節范圍之外的字符。 Encode模塊可用於將這些字符串轉換為字節串。

Answer 3

你需要這樣做......

print $response->content();

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