Multi-Level Arrays - Problem (gelöst) (Allgemeines zu Perl)

[thread]15533[/thread]

Multi-Level Arrays - Problem [gelöst]

Leser: 15

Articles: hide open all | hide show old branches

+5 replies

caliph

2010-10-14 12:37

User since
2010-09-16
4 Artikel
BenutzerIn
[default_avatar]

Hallo Zusammen!

Ich habe nach dem Parsen eines XML die untenstehende multilevel-Datenstruktur in $data

Irgendwie gelingt es mir nicht, diese Kursdaten in der Mitte in ein simples Array @kursdaten zu schreiben in der Struktur:

2010-10-13, USD, 1.3958
2010-10-13, JPY, 114.23
2010-10-12, USD, 1.3833
2010-10-12, JPY, 113.35

Kann mir jemand eine Hilfestellung geben?

Beste Grüße!

Code: (dl )

$VAR1 = {
          'xmlns' => 'http://www.ecb.int/vocabulary/2002-08-01/eurofxref',
          'Cube' => {
                    'Cube' => [
                              {
                                'time' => '2010-10-13',
                                'Cube' => [
                                          {
                                            'rate' => '1.3958',
                                            'currency' => 'USD'
                                          },
                                          {
                                            'rate' => '114.23',
                                            'currency' => 'JPY'
                                          },
                                          
                                          ]
                              },
                              {
                                'time' => '2010-10-12',
                                'Cube' => [
                                          {
                                            'rate' => '1.3833',
                                            'currency' => 'USD'
                                          },
                                          {
                                            'rate' => '113.35',
                                            'currency' => 'JPY'
                                          },
                                          
                                          ]
                              },
                              
                              ]
                    },
          'gesmes:Sender' => {
                             'gesmes:name' => 'European Central Bank'
                           },
          'gesmes:subject' => 'Reference rates',
          'xmlns:gesmes' => 'http://www.gesmes.org/xml/2002-08-01'
        };

Last edited: 2010-10-14 12:38:56 +0200 (CEST)

+3 replies
pq

2010-10-14 12:44
User since
2003-08-04
12208 Artikel
Admin1
woran hängts denn? heisst, welchen code hast du schon? es ist immer hilfreich, info darüber zu geben, was man schon in perl kann.
da ich nur raten kann, sieht meine hilfestellung so aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

my $cube = $xml->{Cube}->{Cube}; # arrayref for my $item (@$cube) { my $time = $item->{time}; my $rate_curr = $item->{Cube}; # noch eine arrayref for my $item (@$rate_curr) { my $rate = $item->{rate}; my $curr = $item->{currency}; # mach was mit $time, $rate und $currency # schreib es in ein array, ... } }
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- caliph
  
  2010-10-14 12:57
  
  User since
  2010-09-16
  4 Artikel
  BenutzerIn
  
  Vielen Dank für Deine Hilfestellung!!! Das war genau das was ich gesucht hatte!
  
  Ich war so sehr auf dem Holzweg, dass ich froh bin, meinen Code nicht gepostet zu haben ;)
  
  Viele Grüße
  - pq
    
    2010-10-14 13:00
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    hihi, nix ist peinlicher als der eigene perl-code von $gestern =)
    geht mir auch immer noch oft so (obwohl sich die zeitabstände doch etwas vergrössert haben, zum glück)
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
MatthiasW

2010-10-14 12:58
User since
2008-01-27
367 Artikel
BenutzerIn
Die von dir gewünschten Werte liegen im Array @{ $data->{'Cube'}->{'Cube'} }. Jedes Element dieses Arrays ist eine Hashreferenz %{ $data->{'Cube'}->{'Cube'}->[$n] }. Der Wert des 'time' Schlüssels ist das Datum, der Wert des 'Cube' Schlüssels ist wieder eine Arrayreferenz @{ $data->{'Cube'}->{'Cube'}->[$n]->{'Cube'} }. Jedes Element dieses Arrays ist eine Hashreferenz und enthält die 'currency' und 'rate' Werte.

Die gewünschten Werte kannst du bspw. folgendermaßen in ein zweidimensionales Array @kursdaten schreiben:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

my @kursdaten = map { my $time = $_->{'time'}; map { [ $time, $_->{'currency'}, $_->{'rate'}, ] } @{ $_->{'Cube'} } } @{ $data->{'Cube'}->{'Cube'} };
MfG
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2010-10-14 12:37.