Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7159[/thread]

keys in mehrdimensionalen hashes (Seite 2)

Leser: 1


<< |< 1 2 >| >> 13 Einträge, 2 Seiten
Criamon
 2005-07-27 13:32
#56682 #56682
User since
2005-07-26
8 Artikel
BenutzerIn
[default_avatar]
@renee: DANKE!!

Das bringt mich schon einen riesen Schritt weiter - nur komme ich jetzt mit folgendem Code nicht an die Daten:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
foreach my $sDV_Name (keys %hData){
     funktion %hData($sAufgabe, %hData->{$sDV_Name});
}
sub funktion{
   my ($sAufg, %hDV) = @_;

   foreach my $sDV_Pattern (keys %hDV){
      print "Bearbeite PATTERN: $sDV_Pattern  \n";
      foreach my $sValue ( keys %hDV->{$sDV_Pattern}
           print "Eintrag von PATTERN: $sDV_Pattern ist $sValue \n";
      }
   }
}

Das gibt mir aus:
Bearbeite PATTERN: HASH(0x23a33c)
Taulmarill
 2005-07-27 13:40
#56683 #56683
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
das passiert weil du eine referenz übergibtst. ungetestet:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
foreach my $sDV_Name (keys %hData){
    funktion %hData($sAufgabe, $hData{$sDV_Name});
}

sub funktion{
  my ($sAufg, $hDV) = @_;

  foreach my $sDV_Pattern (keys %{$hDV}){
     print "Bearbeite PATTERN: $sDV_Pattern  \n";
     foreach my $sValue ( keys %{$hDV->{$sDV_Pattern}} ) {
          print "Eintrag von PATTERN: $sDV_Pattern ist $sValue \n";
     }
  }
}
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
Criamon
 2005-07-27 13:58
#56684 #56684
User since
2005-07-26
8 Artikel
BenutzerIn
[default_avatar]
DANKE DANKE DANKE DANKE!! :)

Nicht nur, dass Ihr mir geholfen habt das Problem zu lösen, ich hab auch dnelich verstanden wie das mit den Referenzen richtig funktioniert. Ein Beispiel an dem man selbst arbeitet ist doch besser als künstliche aus den Büchern :)


bis denn dann,
Criamon
<< |< 1 2 >| >> 13 Einträge, 2 Seiten



View all threads created 2005-07-26 00:39.