Отправить запрос на отдых с Perl

Question

Можно ли отправить запрос отдыха, включая проверку подлинности заголовка в perl / shell script / командной строке. И получить ответ?

Answer 1

Примерно так, если вы хотите манипулировать результатом в Perl:

use strict;
use warnings;
use LWP::UserAgent;

my $ua=LWP::UserAgent->new;

my $result=$ua->get("http://www.google.com/");

print $result->content;

Или, с базовой HTTP-аутентификацией, что-то вроде этого:

use strict;
use warnings;
use LWP::UserAgent;

my $ua=LWP::UserAgent->new;

$ua->credentials("www.pagetutor.com:80","My Secret Area","jimmy","page");

my $result=$ua->get("http://www.pagetutor.com/keeper/mystash/secretstuff.html");

print $result->content;

См. http://www.pagetutor.com/keeper/http_authentication/index.html, откуда взялся пароль. Просто первая найденная мной случайная страница, требующая базовой аутентификации.