Speichern der SOAP-Antwort als Hash

Question

Ich versuche, die Antwort von einem Perl (v5.12.4) SOAP-Aufruf (SQL-Abfrage) als Hash für die weitere Verarbeitung zu speichern, während die Struktur der Daten beibehalten wird. Die Spalten variieren, daher möchte ich die Spaltenschlüssel dynamisch erstellen können. Hier ist ein Beispiel für die Antwort:

$VAR1 = { 
     'row' => [ 
       #0 
       { 
       'column1' => '', 
       'column2' => 'f', 
       'column3' => '0', 
       'column4' => '', 
       'column5' => 'f', 
       'column6' => '0', 
       'column7' => 'f', 
       }, 
      ] 
     }; 

Ich interessiere mich für die Spaltennamen und Werte.

unless ($res->fault) { 
    $Data::Dumper::Indent = 3; 
    my (%reply) = $res->paramsall(); 
    foreach my $keys (keys %reply) { 
    print "$keys\n"; 
    } 
} 

Dies wird eine „Referenz gefunden, wo auch große Liste an script.pl Linie erwartet ...“: Ich habe im Umgang mit dieser, wie einige (komisch) Versuchen gemacht. Jeder Punkt in der richtigen Richtung wird hier sehr geschätzt.

Dank

Answer 1

Dieses:

$res->paramsall() 

gibt fast certainy eine hashref.

Also, was Sie tun, ist die Zuordnung der Hashref die erste Taste von% Antwort.

my %reply = %{ $res->paramsall() }; 

Wird wahrscheinlich funktionieren.

Sie sollten einen Blick auf perlreftut für einige Methoden mit Reference-Strukturen arbeiten.

Dereferenzierte Hashes mit meinem% hash =% {} erstellt eine Kopie des referenzierten Hashs.
Sie können mit hashrefs wie diese direkt arbeiten:

my $reply = $res->paramsall(); 

foreach my $key1 (keys %$reply) { 
    foreach my $key2 (keys %{ $reply->{$key1} }) { 
    print " $key2: " . $reply->{$key1}{$key2} . "\n"; 
    } 
} 

Im ersten Codebeispiel in Ihrer Antwort, dies:

$reply{$key2}->{$key2} 

sollte lauten:

$reply{$key1}{$key2} 

da alles schon dereferenziert.