LWP::UserAgent post 方法不返回值

Question

只需从 perl cook book 2nd ed pp. 796 复制这段代码

它返回： 400 URL 必须是绝对的。

这段代码有什么问题？

#!"c:\strawberry\perl\bin\perl.exe" -w

use 5.006;
use strict;
use LWP::Simple;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $resp = $ua->post("www.amazon.com/exec/obidos/search-handle-form",
                     { "url"             => "index-books",
                       "field-keywords"  => "perl"}
);
my $content = $resp->content;

print $content, "\n";

Answer 1

您忘记了网址前面的http://

嗯，大概是http://，也可能是https://、ftp://等等。