別のサーバー上にある Web サービスを呼び出す必要がある Java Web アプリがあります。
サービスを呼び出す perl スクリプトのコードは次のとおりです。
#!/usr/bin/perl -w
use SOAP::Lite;
my $user = 'user';
my $password = 'password';
my $loginURI = "http://someserver:8080/SakaiLogin.jws?wsdl";
my $scriptURI = "http://someserver:8080/sakai-axis/scripts/RosterService.jws?wsdl";
my $loginsoap = SOAP::Lite
-> proxy($loginURI)
-> uri($loginURI);
my $scriptsoap = SOAP::Lite
-> proxy($scriptURI)
-> uri($scriptURI);
my $session = $loginsoap->login($user, $password)->result;
# doSiteRoster(session, site_id, user_id)
my $result = $scriptsoap->doSiteRoster($session, "cfc338aa-acfb-41a6-a998-7e467afc297b", "djswartz")->result;
my $logout = $loginsoap->logout($session)->result;
exit;
今、私は javax.xml.ws.Service を使用できると考えています...どうやってそれを行うかはよくわかりませんが。どの方向も素晴らしいでしょう。