19 lines
643 B
Plaintext
19 lines
643 B
Plaintext
Générer les méthodes à partir du WSDL grâce à l'utilitaire wsdl2perl
|
|
|
|
wsdl2perl -p Entreprise -b . http://hostname/service?wsdl
|
|
|
|
Modifier pour inclure l'authentification http basique
|
|
|
|
-> proxy('http://login:md5(login|password)@hostname/service')
|
|
|
|
Puis intérroger le service,
|
|
|
|
use EntrepriseInterfaces::entreprisesService::entreprisesPort;
|
|
use EntrepriseElements::IdentiteRequest;
|
|
my $service = EntrepriseInterfaces::entreprisesService::entreprisesPort->new();
|
|
my $params = EntrepriseElements::IdentiteRequest->new({
|
|
siret => '34838984200017',
|
|
});
|
|
my $result = $service->getIdentite($params);
|
|
die $result if not $result;
|
|
print $result; |