LWP :: UserAgent post方法不返回值

Question

只需从perl cook book 2nd ed pp.796

复制此代码即可

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

这段代码出了什么问题？

#!"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://等等。