perl - wsdl Web サービスの認証を使用した Perl の SOAP クライアント

Question

認証付きの JAX-WS Web サービス用の SOAP クライアントを perl で作成しようとしています。認証なしでサービスと通信できます。しかし、実際の Web サービス (認証を持っている人) と通信しようとすると、認証エラーまたは SOAP xml のフォーマットされていないエラーが発生します。

Answer 1

このコードを試してください

my $user="testUser";
my $password="testPassword";

my $service_url='https://api.example.com/services/soap.wsdl';

my $client = SOAP::Lite->service($service_url); 

$client->on_fault(
 sub { # SOAP fault handler
     my $soap = shift;
        my $res = shift;
        # Map faults to exceptions
        if(ref($res) eq '') {
            die($res);
        } else {
            die($res->faultstring);
        }
        return new SOAP::SOM;
 }
);


my @headers = (
    SOAP::Header->name('username')->value($user),

    SOAP::Header->name('password')->value($password),

);

# make the call
my $result = $client->getVersion(@headers);

print $result . "\n\n";