1 2 3 4 5 6 7 8 9 10 11 12 13 |
#!/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
Можно короче. См например первый пункт в заметке http://eax.me/mini-notes-issue-7/
Спасибо! Действительно, можно и короче :) Хотя, не думаю, что это очень принципиальное различие :) У вас интересный блог, кстати. Не подскажете, панель слева, с кнопками от «В контакте», «Одноклассники» и пр. — это какой-то плагин к wordpress, или каждая социальная сеть вручную добавлена?
Спасибо, у Вас тоже :)
Кнопки, что слева, можно получить на http://share42.com/ru