Perl

[Perl] Récupérer une information dans un retour SOAP

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Récupérer une information dans un retour SOAP

Shadow aok

Moitié de demi en 3/4 d'entier

Bonjour,

Je m'y perds un peu dans la structure ci-dessous, retournée par une requête SOAP.

Il faudrait que je récupère l'id 1534 et la ref FA1512-1277 dans le hash undef.

Une idée pour y accéder ?

Merci,

Code :

$VAR1 = bless( {
'_content' => [
'SOAP-ENV:Envelope',
{
'xmlns:tns' => 'http://www.dolibarr.org/ns/',
'SOAP-ENV:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/',
'xmlns:SOAP-ENV' => 'http://schemas.xmlsoap.org/soap/envelope/',
'xmlns:xsd' => 'http://www.w3.org/2001/XMLSchema',
'xmlns:SOAP-ENC' => 'http://schemas.xmlsoap.org/soap/encoding/',
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
},
[
[
'SOAP-ENV:Body',
{},
[
[
'ns1:createInvoiceResponse',
{
'xmlns:ns1' => 'http://schemas.xmlsoap.org/soap/envelope/'
},
[
[
'result',
{
'xsi:type' => 'tns:result'
},
[
[
'result_code',
{
'xsi:type' => 'xsd:string'
},
'OK',
undef,
'OK',
'result_code',
{
'{http://www.w3.org/2001/XMLSchema-instance}type' => '{http://www.w3.org/2001/XMLSchema}string',
'xsi:type' => 'xsd:string'
}
],
[
'result_label',
{
'xsi:type' => 'xsd:string'
},
'',
undef,
'',
'result_label',
{
'{http://www.w3.org/2001/XMLSchema-instance}type' => '{http://www.w3.org/2001/XMLSchema}string',
'xsi:type' => 'xsd:string'
}
]
],
undef,
bless( {
'result_label' => '',
'result_code' => 'OK'
}, 'result' ),
'result',
{
'xsi:type' => 'tns:result',
'{http://www.w3.org/2001/XMLSchema-instance}type' => '{http://www.dolibarr.org/ns/}result'
}
],
[
'id',
{
'xsi:type' => 'xsd:string'
},
'1534',
undef,
'1534',
'id',
{
'xsi:type' => 'xsd:string'
}
],
[
'ref',
{
'xsi:type' => 'xsd:string'
},
'FA1512-1277',
undef,
'FA1512-1277',
'ref',
{
'xsi:type' => 'xsd:string'
}
]
],
undef,
{
'id' => '1534',
'result' => $VAR1->{'_content'}[2][0][2][0][2][0][4],
'ref' => 'FA1512-1277'
},
'{http://schemas.xmlsoap.org/soap/envelope/}createInvoiceResponse',
{}
]
],
undef,
{
'createInvoiceResponse' => $VAR1->{'_content'}[2][0][2][0][4]
},
'{http://schemas.xmlsoap.org/soap/envelope/}Body',
{}
]
],
undef,
{
'Body' => $VAR1->{'_content'}[2][0][4]
},
'{http://schemas.xmlsoap.org/soap/envelope/}Envelope',
{
'SOAP-ENV:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/',
'{http://schemas.xmlsoap.org/soap/envelope/}encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/'
}
],

Publicité

Shadow aok

Moitié de demi en 3/4 d'entier

Bon, j'ai finalement réussi comme ceci :
$VAR1->{'_content'}[2][0][2][0][4]->{'id'} (ou ref).

gilou

Modérateur
Modzilla

$VAR1->{'_content'}->[2]->[0]->[2]->[0]->[4]->{'id'}
et
$VAR1->{'_content'}->[2]->[0]->[2]->[0]->[4]->{'ref'}

En virant les trucs inutiles de l'exemple, on arrive à

$VAR1 = bless( {
'_content' => [
'',
{},
[
[
'',
{},
[
[
'',
{},
[],
undef,
{
'id' => '1534',
'result' => $VAR1->{'_content'}[2][0][2][0][2][0][4],
'ref' => 'FA1512-1277'
},

qui se réduit, en simplifiant, pour tester, a:

Code :

my $VAR1 = { '_content' => ['aaa', 'bbb',
        [['aaa', 'bbb',
          [['aaa', 'bbb', 'ccc', 'ddd',
        {
         'id' => '1534',
         'result' => $VAR1->{'_content'}[2][0][2][0][2][0][4],
         'ref' => 'FA1512-1277'
        }]]]]]};

et il y a plus qu'à compter les positions dans les tableaux.
EDIT: je vois que tu y était arrivé. C'est plus juste avec les flèches partout, mais perl sait se débrouiller sans dans les cas simples.

A+,

Message édité par gilou le 08-12-2015 à 18:18:10

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Shadow aok

Moitié de demi en 3/4 d'entier

C'est quand même super moche comme retour !

gilou

Modérateur
Modzilla

Bof, tu manipules le même genre de chose quand tu fais de la programmation en C avec des structures complexes.
Et c'est bien plus coton, puisqu'il faut gérer la mémoire à la mimine

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

[Perl] Récupérer une information dans un retour SOAP

Sujets relatifs
Concatenation lignes	[Perl] simplifier ma regex
[ASP] Terniner une page avec un code retour précis	[PERL] CGI retourner un code erreur
Code de retour Runtime avec exitValue	Récupérer telnet via PHP
e voudrais lancer plusieurs script Perl à partir d'un autre script Per	Récupérer valeurs
Récupérer des valeurs fusionnées	Recuperer l'URL d'un spreadsheet et l'envoyer par mail
Plus de sujets relatifs à : [Perl] Récupérer une information dans un retour SOAP

Page générée en 0.146 secondes