Язык программирования Perl


Web-сервисы - часть 2


use SOAP::Transport::HTTP; # использовать протокол HTTP SOAP::Transport::HTTP::CGI # для обращения через CGI # к web-сервисам из этого каталога: -> dispatch_to('/_Learn/Perl/web-services') -> handle;

Затем напишем клиента для обращения к web-службам с использованием возможности перенаправления запросов, реализованной в библиотеке SOAP::Lite:

# включаем автоматическое use SOAP::Lite +autodispatch => # перенаправление запросов uri => 'urn:Calculator', # к классу Calculator # при обращении по указанному адресу proxy => 'http://localhost/cgi-bin/web_soap.cgi'; my $a = 5; # первый и my $b = 3; # второй проверочные операнды # вызываем методы класса на сервере: print add($a, $b) , "\n"; # результат: 8 print subtract($a, $b), "\n"; # результат: 2 print multiply($a, $b), "\n"; # результат: 15 print divide($a, $b) , "\n"; # результат: 1.66666666666667

Для проверки работы этой web-службе была написана другая клиентская программа на языке VBScript. Чтобы показать, как выглядят передаваемые данные, результат работы метода multiply(5, 3) был выведен в виде неформатированного SOAP-сообщения, которое приведено на рис. 18.4.

Пример SOAP-сообщения при обращении к web-сервису

Рис. 18.4.  Пример SOAP-сообщения при обращении к web-сервису

Подобным способом через web-сервисы можно организовать доступ к методам любых других прикладных классов. В последнее время популярность получила технология AJAX (асинхронный доступ из JavaScript с помощью XML). Она может использоваться для доступа к web-службам из программ на JavaScript, превращая браузер в клиента прикладных классов, написанных на языке Perl. Пример обращения к разработанному нами web-сервису из JavaScript показан на рис. 18.5.

Браузер как клиент web-сервисов

Рис. 18.5.  Браузер как клиент web-сервисов

Программные средства, рассмотренные в этой лекции, охватывают только небольшую часть возможностей Perl для работы с ресурсами WWW. Web-программирование принесло языку Perl успех и большую популярность. Но Perl готов к переменам, которые неизбежно принесет нам будущее: ведь он создавался как расширяемый и адаптируемый язык. И он постоянно продолжает развиваться силами сообщества Perl-программистов, к числу которых теперь можете причислить себя и вы. Успехов вам в разработке программ на Perl и в дальнейшем изучении этого прекрасного языка программирования!




- Начало -  - Назад -  - Вперед -