komplexe Datenstruktur - #121661 (Allgemeines zu Perl)

anti

2009-05-18 12:08

User since
2003-11-29
155 Artikel
BenutzerIn
[default_avatar]

Hi,

ich spiele gerade etwas mit CPAN:

SOAP::Lite herum und erhalte dabei folgende Datenstruktur:

Code (perl): (dl )

my $data = SOAP::Data->name( "sql" => "SELECT Version FROM ComponentVersion WHERE SoftwareComponent = 'cuc'" );
my $res = $cm->executeSQLQuery(  $data );
unless ($res->fault) {
  $Data::Dumper::Indent = 3;
  print Dumper($res->paramsall());
} else {
  print $res->faultcode.' '.$res->faultstring."\n";
}

Code: (dl )

$VAR1 = {
          'phone' => [
                     #0
                     {
                       'model' => 'Cisco 7960',
                       'name' => 'SEP003094',
                       'product' => 'Cisco 7960'
                     },
                     #1
                     {
                       'model' => 'Cisco 7960',
                       'name' => 'SEP0003E',
                       'product' => 'Cisco 7960'
                     }
                   ]
        };

Wie greife ich am besten auf diese Datenstruktur zu? Wie löst ihr solche Strukturen am einfachsten auf?

Greetz,
anti