Привет, Есть XML::Compile::SOAP. Он поддерживает не все форматы протокола, но если он зароботает для вас, то рекомендую. Если он не заработает за 30минут - 1 час, то лучше и не трогать больше.
В свое время рекомендовали выше привиденный модуль и я не стал пробывать SOAP::Lite. 2011/6/20 Николай Мишин <[email protected]>: > исправил , чтобы файлы отображались в браузере,а не просили скачиваться > http://mishin.narod.ru/python/jira.py.html > http://mishin.narod.ru/python/sl3.jira.home.py.html > > 20.06.2011, 09:04, "Николай Мишин" <[email protected]>: >> Hi Moscow.pm >> >> Кто-нибудь смог подружиться с soap протоколом или с SOAP::Lite >> по моему скромному мнению этот модуль совершенно не дописан, >> например там не хватает функции, возвращающей список методов soap-сервера >> >> Складывается идиотская ситуация, как только мне нужно написать что-нибудь >> сложнее примера, показанного в модуле - >> ничего не работает и не ясно как заставить это работать, например хочу в из >> Jira вытащить все заявки с помощью jql: >> >> #!/usr/bin/perl >> use strict; >> use warnings; >> use SOAP::Lite; >> use Data::Dumper; >> >> my $soap = >> SOAP::Lite->proxy("http://localhost:8080/rpc/soap/jirasoapservice-v2?wsdl";); >> my $auth = $soap->login( "login", "pw" ); >> >> #ключ авторизации кладем в переменную >> my $aur = $auth->result(); >> >> my $jql = 'assignee = mishin'; >> my $issues = $soap->getIssuesFromJqlSearch( $aur, $jql ); >> >> print Dumper($issues); >> >> # my $addComment = $soap->addComment( >> # $aur, "AXIS-1", >> # SOAP::Data->type( >> # 'RemoteComment' => { 'body' => "Comment added via SOAP::Lite" } >> # ) >> # ); >> # >> # if ( defined $addComment->fault() ) { >> # print $addComment->faultstring() . "\n"; >> # print Dumper($addComment); >> # } >> # else { >> # print "Comment added:\n"; >> # print Dumper( $addComment->result() ); >> # } >> $soap->logout( $auth->result() ); >> >> а вот как то же самое легко делается на python >> просто дам ссылку >> http://mishin.narod.ru/python/jira.py >> http://mishin.narod.ru/python/sl3.jira.home.py >> >> мне не удалось к сожалению разместить на https://github.com/mishin/scripts >> ( >> $ git push -u origin master >> The authenticity of host 'github.com (207.97.227.239)' can't be established. >> RSA key fingerprint is 16:27:ac:a5:76:28:2d:36:63:1b:56:4d:eb:df:a6:48. >> Are you sure you want to continue connecting (yes/no)? yes >> Warning: Permanently added 'github.com,207.97.227.239' (RSA) to the list of >> known hosts. >> Permission denied (publickey). >> fatal: The remote end hung up unexpectedly >> >> kshunkov@Jet ~/scripts >> $ git push -u origin master >> Permission denied (publickey). >> fatal: The remote end hung up unexpectedly >> >> ) >> >> а так хотелось сделать это на перле >> и еще, кто-нибудь имел опыт использования >> perthon http://perthon.sourceforge.net/ Дамиана Конвея >> я вот подумал может с помощью это программы перенести код библиотеки suds >> (которая в свою очередь >> была перенесена из java Axis) в perl6. >> и на java Axis c soap вполне себе работается (хоть и не так просто). >> >> Спасибо > > -- > Николай Мишин > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > -- Best regards, Ruslan. -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
