Самый простой http-клиент на perlPerl, Assembler, Си — блог программиста

#!/usr/bin/perl

use strict;

use LWP::UserAgent;

my $request = HTTP::Request->new(GET => 'http://localhost:32080/');
$request->header('Content-Type' => 'text/xml');

my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);

print $response->content;

#!/usr/bin/perl

use strict;

use LWP::UserAgent;

my $request = HTTP::Request->new(GET => 'http://localhost:32080/');

$request->header('Content-Type' => 'text/xml');

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

my $response = $ua->request($request);

print $response->content;

Очень лениво набирать этот код раз за разом. Добавляю эти несколько строк кода для дальнейшего копипаста. Ведь постоянно нужно что-то тестировать, и простой http-клиент, особенно, если надо тестировать взаимодействие с партнерами посредством обмена xml-данными, бывает незаменим.

Расширить функциональность очень просто, см. документацию:

search.cpan.org: LWP::UserAgent

search.cpan.org: HTTP::Request

search.cpan.org: HTTP::Response

Самый простой http-клиент на perl: 3 комментария

afiskon 18.10.2012 в 10:59 дп

Можно короче. См например первый пункт в заметке http://eax.me/mini-notes-issue-7/

Natalie Автор записи18.10.2012 в 2:23 пп

Спасибо! Действительно, можно и короче :) Хотя, не думаю, что это очень принципиальное различие :) У вас интересный блог, кстати. Не подскажете, панель слева, с кнопками от "В контакте", "Одноклассники" и пр. - это какой-то плагин к wordpress, или каждая социальная сеть вручную добавлена?

afiskon 19.10.2012 в 1:50 дп

Спасибо, у Вас тоже :)

Кнопки, что слева, можно получить на http://share42.com/ru

Комментарии запрещены.