Hash --> Zugriff auf ein bestimmtes Element (gelöst) (Allgemeines zu Perl)

[thread]15471[/thread]

Hash --> Zugriff auf ein bestimmtes Element [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+4 replies

PETER_PAN2009

2010-09-20 10:09

User since
2009-08-24
111 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen!

Folgende Hash-Konstruktion:

Code (perl): (dl )

my %my_hash = (
 teil1 => {
  teil2 => {
   teil3 => {
    teil_3_1 => ['wert_xy'],
    },
   teil4 => {
    teil_4_1 => ['wert_ab']
    },
   },
  },
);

Mein Frage: Wie kann ich in einer foreach Schleife auf die Werte von "teil_3_1" und "teil_4_1" also (wert_xy / wert_ab) zugreifen?

Ich hoffe ich habe mich verständlich ausgedrückt :-)

Vielen Dank
Gruß
Peter

+3 replies

Gast wer

2010-09-20 10:22

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my %my_hash = (
 teil1 => {
  teil2 => {
   teil3 => {
    teil_3_1 => ['wert_xy'],
    },
   teil4 => {
    teil_4_1 => ['wert_ab']
    },
   },
  },
);


my $ref=$my_hash{teil1}->{teil2};

print $ref->{teil3}->{teil_3_1}->[0]."\n";
print $ref->{teil4}->{teil_4_1}->[0]."\n";

Last edited: 2010-09-20 10:36:51 +0200 (CEST)

+2 replies

payx

2010-09-20 11:06

User since
2006-05-04
564 Artikel
BenutzerIn

user image

Hallo Peter, hallo wer,

es sollte ja mit einer for(each)-Schleife sein:

Code (perl): (dl )

for my $teil_n (values %{$ref}) {
    for my $teil_n_n (values %{$teil_n}) {
        for my $value (@{$teil_n_n}) {
            print $value."\n";
        }
    }
}

HTH
Grüße
payx

//EDIT:
PS: Hier noch ein Alternativvorschlag mit den keys:

Code (perl): (dl )

for my $teil_n (sort keys %{$my_hash{teil1}->{teil2}}) {
    print "$teil_n:\n";
    for my $teil_n_n (sort keys %{$my_hash{teil1}->{teil2}->{$teil_n}}) {
        print "\t$teil_n_n:\n";
        for my $value (@{$my_hash{teil1}->{teil2}->{$teil_n}->{$teil_n_n}}) {
            print "\t\t$value\n";
        }
    }
}

($my_hash{teil1}->{teil2} und $ref sind natürlich immer austauschbar, wenn man $ref wie von wer vorgeschlagen definiert.)
Last edited: 2010-09-20 11:27:53 +0200 (CEST)

PETER_PAN2009

2010-09-20 11:27

User since
2009-08-24
111 Artikel
BenutzerIn

Hallo PAYX,

super, vielen Dank für die Antwort!

Gruß
Peter

View all threads created 2010-09-20 10:09.