komplexe Datenstruktur (Allgemeines zu Perl)

[thread]13532[/thread]

komplexe Datenstruktur

Leser: 23

Articles: hide open all | hide show old branches

+3 replies

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

+2 replies

Gast wer

2009-05-18 12:35

Das listet ähnlich wie Dumper den Inhalt auf:

Code (perl): (dl )

#...

# hashreferenz kommt zurück
my $hashref=$res->paramsall();

# Einziges element ist "phone" mit einer Arrayreferenz
# zu einem echten array umwandeln
my @array=@{$hashref->{phone}};

# das array abarbeiten
for my $cnt (0..$#array)
{
  Das Array enthält eine Hashreferenz
  my $ref=$array[$cnt];

  # Das wivielte element ist es?
  print "ELEMENT: $cnt\n";

  # alle schlüssel aus dem hash holen
  my @keys=keys(%$ref);

  # das ganze ausgeben
  print "  $_ =>".
        #ein beispiel wie man direkt auf ein element zugreifen kann.
        $hashref->{phone}->[$cnt]->{$_}.
        "\n" for(@keys)
}

anti

2009-05-18 13:42

User since
2003-11-29
155 Artikel
BenutzerIn

Spitze, Danke!

greetz,
anti

View all threads created 2009-05-18 12:08.