LWP::UserAgent post метод не возвращает значение

#perl #lwp-useragent

#perl #lwp-useragent

Вопрос:

Просто скопируйте этот код из perl cook book 2nd ed стр. 796

он возвращает: URL 400 должен быть абсолютным.

Что не так с этим кодом?

 #!"c:strawberryperlbinperl.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";
  

Ответ №1:

Вы забыли http:// в начале URL-адреса

Ну, предположительно http:// , это может быть https:// , ftp:// и т.д. И т.п.