SOAP::Lite - Result verarbeiten (Fragen zu Perl-Modulen)

[thread]16540[/thread]

SOAP::Lite - Result verarbeiten

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+10 replies

Gast Aendy

2011-07-19 07:01

Hallo zusammen,

ich sende via SOAP::Lite einen Request und bekomme dafür die Response.
Wenn ich mir dieses auf der Commandline mit

Code: (dl )

print $som->result, "\n";

ausgeben lassen möchte, dann erhalte ich nur

Quote
HASH(0x227ce0c)

Wenn der Trace (use SOAP::Lite +trace;) aktiv ist, dann sehe ich die vollständige, richtige Response.

Hab auch schon versucht den Hash mit folgendem Code auszugeben:

Code: (dl )

1
2
3

while (my ($key, $value) = each %{$som->result}) {
  print "key: ", $key, " - Value: ", $value, "\n";
}

Leider ohne Erfolg.

Hier noch der verwendete Sourcecode:

Code: (dl )

use SOAP::Lite +trace;
my $soap = SOAP::Lite->new( proxy => 'http://192.168.0.214/stockquote1.php');

$soap->on_action( sub { "urn:HelloWorld#sayHello" });
$soap->autotype(0)->readable(1);

my $som = $soap->call(
                 'CheckForSoftwareUpdates',
                 SOAP::Data->name('InstalledSoftware')->value(
                             \SOAP::Data->value([
                                          SOAP::Data->name('SoftwareName')->value('SampleSoftware1'),
                                          SOAP::Data->name('Version')->value('1.2.3'),
                                          SOAP::Data->name('OperatingSystem')->value('Windows_XP'),
                                          ])
                             )
                 );

if ($som->fault)
{
  die $som->fault->{ faultstring };
}
print $som->result, "\n";

Gruß
Aendy
Last edited: 2011-07-19 07:21:24 +0200 (CEST)

+9 replies

kristian

2011-07-19 07:56

User since
2005-04-14
684 Artikel
BenutzerIn

Hallo

Data::Dumper ist dein Freund.

Code (perl): (dl )

1
2
3

use Data::Dumper;
my $soap_result = $som->result;
print Dumper($soap_result);

Gruß
Kristian

+8 replies

Gast Aendy

2011-07-19 09:16

Mist, den hab ich doch schon mal verwendet...

Vielen Dank, werde ich gleiche heute Abend verproben :)
Last edited: 2011-07-19 09:20:38 +0200 (CEST)

+7 replies

Gast Aendy

2011-07-20 20:50

Hallo Kristian,

sorry, hab es gestern nicht mehr geschafft...

Hab es gerade mit dem Data::Dumper probiert, allerdings bekomme ich da soviele Informationen...

Wie kann ich geziehlt auf einen Teil der Informationen zugreifen?
Wenn ich das ganze in einen String packen würde, dann wäre eine Regex die richtige Wahl, aber es muss doch auch anders gehen, oder?

Gruß
Aendy

+6 replies

kristian

2011-07-20 21:55

User since
2005-04-14
684 Artikel
BenutzerIn

Hallo

das was Data::Dumper dir gibt ist ein Abbild der Daten die in deinem Script schon vorliegen.
Wenn du uns die Daten / das Bild zeigst können wir dir sagen, wie du auf das zugreifen kannst, was du brauchst.
Eine regex wäre absolut sinnfrei.

Gruß
Kristian

+5 replies

Gast Aendy

2011-07-21 20:39

natürlich würde ich gerne die Ausgabe posten damit ihr mir helfen könnte, ich komm leider nicht weiter :(

Allerdings hat die Ausgabe mehr als 1500 Zeilen...
Und das obwohl ich nur den XML-Response haben möchte...

+4 replies

kristian

2011-07-21 22:31

User since
2005-04-14
684 Artikel
BenutzerIn

Hallo,

du musst nicht alles posten.
Es beginnt links oben geht dann nach rechts in die Breite, dann kommen die Datensätze die du willst und davon ganz viele.
Nimm es von oben und die ersten beiden Datensätze die du suchst, das sollte unter 100 Zeilen sein.

Gruß
Kristian

+3 replies

Gast Aendy

2011-07-22 07:41

Guten Morgen,

naja, wenn es nur die ersten/wichtigsten Zeilen sein müssen:

Code (perl): (dl )

$VAR1 = [
          'soapenv:Envelope',
          {
            'xmlns:soapenv' => 'http://schemas.xmlsoap.org/soap/envelope/'
          },
          [
            [
              'soapenv:Body',
              {},
              [
                [
                  'ns2:CheckForSoftwareUpdatesResponse',
                  {
                    'xmlns' => 'http://www.w3.org/2000/09/xmldsig#'
                  },
                  [
                    [
                      'ns2:InstalledSoftware',
                      {},
                      [
                        [
                          'ns2:SoftwareName',
                          {},
                          'SampleSoftware1',
                          undef,
                          'SampleSoftware1',
                          '{http://192.168.0.214/api/1.1}InstalledSoftware',
                          {}
                        ],
                        [
                          'ns2:File',
                          {},
                          [
                            [
                              'ns2:UpdateURL',
                              {},
                              'https://192.168.0.214/downloads/testfile.zip',
                              undef,
                              'https://192.168.0.214/downloads/testfile.zip',
                              '{http://192.168.0.214/api/1.1}UpdateURL',
                              {}

Hab da alles für mich unwichtige rausgenommen.

Gruß
Aendy

modedit Editiert von GwenDragon: Bitte Code in CODE-Tags, nicht QUOTE!
Last edited: 2011-07-22 09:13:18 +0200 (CEST)

Gast Aendy

2011-07-23 11:37

ich sollte vielleicht noch sagen was ich bräuchte...
Mir ging es um die UpdateURL für den Download...

@GwenDragon: Es handelt sich dabei nicht um Code. Aber die Formatierung ist so auf jeden Fall besser...
Last edited: 2011-07-23 11:41:21 +0200 (CEST)

kristian

2011-07-23 17:44

User since
2005-04-14
684 Artikel
BenutzerIn

Hallo,

irgendwie kommt mir das krank vor....

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $data = [
    'soapenv:Envelope',
    { 'xmlns:soapenv' => 'http://schemas.xmlsoap.org/soap/envelope/' },
    [
        [
            'soapenv:Body',
            {},
            [
                [
                    'ns2:CheckForSoftwareUpdatesResponse',
                    { 'xmlns' => 'http://www.w3.org/2000/09/xmldsig#' },
                    [
                        [
                            'ns2:InstalledSoftware',
                            {},
                            [
                                [ 'ns2:SoftwareName', {}, 'SampleSoftware1', undef, 'SampleSoftware1', '{http://192.168.0.214/api/1.1}InstalledSoftware', {} ],
                                [
                                    'ns2:File',
                                    {},
                                    [
                                        [
                                            'ns2:UpdateURL', {}, 'https://192.168.0.214/downloads/testfile.zip',
                                            undef,
                                            'https://192.168.0.214/downloads/testfile.zip',
                                            '{http://192.168.0.214/api/1.1}UpdateURL', {}
                                        ]
                                    ]
                                ]
                            ]
                        ]
                    ]
                ]
            ]
        ]
    ]
];

my $wanted = $data->[2]->[0]->[2]->[0]->[2]->[0]->[2]->[1]->[2]->[0]->[2];

print Dumper($wanted);

Gruß
Kristian

View all threads created 2011-07-19 07:01.