Frage zu Arrays und Hashes (gelöst) (Allgemeines zu Perl)

[thread]17630[/thread]

Frage zu Arrays und Hashes [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+14 replies
Fragensteller

2012-08-03 09:46

User since
2012-08-01
37 Artikel
BenutzerIn

Hallo Leute,
ich spiele gerade mit Arrays und Hashes rum um zu sehen wie ich unter perl damit umgehen muss.

ich habe folgendes Beispiel jetzt zu fassen...

@{$hGlobal{rules}} = ( @aRegel0, @aRegel1, @aRegel2, @aRegel3 ); @aRegel0 bis aRegelx besteht aus zwei String Werten

Nun versuche ich hier die Werte wieder bekommen...

@aRegeln = @{$hGlobal{rules}}; print ${$aRegeln[0]}[0];

Leider ohne Erfolg...
Hat einer eine Hilfe für mich?

Timo

Zusatz...

my @test = $aRegeln[0]; print $test[0];

Leider auch kein Erfolg
Last edited: 2012-08-03 09:59:04 +0200 (CEST)
- Raubtier
  
  2012-08-03 10:00
  
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  
  Du kannst die Werte nicht zurückbekommen.
  
  Wenn du
  @a = (@a1, @a2)
  hast, dann enthält das @a danach alle Elemente von @a1 und @a2 (in der Reihenfolge), ohne aber eine Information darüber, wo die Grenze zwischen @a1 und @a2 war.
  
  Nur in dem speziellen Fall, dass du weißt, dass sowohl @a1 als auch @a2 je genau 2 Elemente enthalten, kannst du die Elemente wieder zurückbekommen.
  
  Tipp: benutze use Data::Dumper; und lass dir jeweils die Struktur ausgeben, hier: print Dumper \%hGlobal
  
  Du kannst ansonsten Array-Refs speichern: @a=( \@a1, \@a2);
  Last edited: 2012-08-03 10:01:22 +0200 (CEST)
- +5 replies
- Muffi
  
  2012-08-03 10:01
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Keine Chance.
  
  Du machst in Zeile 1 mit der ( eine Liste auf. Wenn du da arrays reinschreibst walzt Perl die aus zu Einzelwerten und steckt die in die Liste.
  D.h. was rauskommt ist eine lange Wurscht an Einzelwerten, du kriegst die nicht wieder den einzelnen Arrays zugeordnet.
  
  Was geht ist da die Arrays als Referenzen reinzustecken.
  
  Code (perl): (dl )
  
  1 2 3
  
  my @gesamt = ( \@array1, \@array2, ... );
  
  Wichtig! Das gleiche Verhalten entsteht z.B. bei Übergabe von Parametern an eine sub
  
  Code (perl): (dl )
  
  meine_sub($param1, @array, $noch_ein_param)
  
  Das walzt @array aus und du kriegst wieder alles als Wurscht.
  
  Möglichkeit1 (die meist schlechtere): @array nach hinten setzen. Dann ist alles ausser dem ersten und zweiten Wert wieder Array
  Möglichkeit2 (die bessere): \@array übergeben.
  1 + 1 = 10
  - +4 replies
  - Fragensteller
    
    2012-08-03 10:27
    User since
    2012-08-01
    37 Artikel
    BenutzerIn
    
    hi Muffi,
    
    klappt doch eher fast...
    Ich bekomme nur nur n viertel der angaben wieder raus.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
    
    $aRegel0[0] = 'Beschreibung 0'; $aRegel0[1] = 'REGEX'; $aRegel1[0] = 'Beschreibung 1'; $aRegel1[1] = 'REGEX'; ... my %res = @{$hGlobal{rules}} = ( \@aRegel0, \@aRegel1, \@aRegel2, \@aRegel3 ); print Dumper \%res; $VAR1 = { 'ARRAY(0x16050f0)' => [ "Beschreibung 3", "REGEX" ], 'ARRAY(0x16050a8)' => [ "Beschreibung 1", "REGEX" ] };
    
    Last edited: 2012-08-03 10:32:49 +0200 (CEST)
    - Muffi
      
      2012-08-03 10:32
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Wo kommt denn der Hash plötzlich her?
      1 + 1 = 10
    - +2 replies
    - Raubtier
      
      2012-08-03 10:37
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      mit
      my %res = @{$hGlobal{rules}}
      machst du eine Zuweisung hash=array. Das hast du hier bestimmt nicht beabsichtigt! Es wird das erste Element des Arrays als Key, das zweite als dazugehöriger Wert interpretiert (und das dritte wieder als Key, das vierte als Value usw.)
      - Fragensteller
        
        2012-08-03 10:42
        
        User since
        2012-08-01
        37 Artikel
        BenutzerIn
        
        ahh ok...
        ja das war nicht gewollt...
        
        ich teste mal weiter und gebe bescheid
- +6 replies
- Fragensteller
  
  2012-08-03 10:11
  
  User since
  2012-08-01
  37 Artikel
  BenutzerIn
  
  Danke Euch beiden...
  oh man, ich bin von PHP echt verwöhnt....
  
  jetzt klappt es auch
  - +5 replies
  - Muffi
    
    2012-08-03 10:22
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    (Persönliche Meinung)
    Da bist du aber auch über einen der wenigen wirklich üblen Designfehler von Perl (bis 5) gestolpert.
    1 + 1 = 10
    - +4 replies
    - Molaf
      
      2012-08-03 10:29
      
      User since
      2007-10-11
      119 Artikel
      BenutzerIn
      
      Designfehler? Sieht für mich sauber aus.
      Wenn man eine Liste macht, hat man eine Liste. Wenn man die Liste aufteilen will, soll man sie halt aufteilen.
      - +3 replies
      - Fragensteller
        
        2012-08-03 10:41
        
        User since
        2012-08-01
        37 Artikel
        BenutzerIn
        
        naja es fehlt im Dump @Regel2 und @aRegel4
        
        +2 replies
        
        Raubtier
        
        2012-08-03 10:43
        
        User since
        2012-05-04
        1083 Artikel
        BenutzerIn
        
        Nein, das sind deine Hash-Keys: ARRAY(0x16050f0) ist eines davon. Wie gesagt, du benutzt dieses Array als Key für den Hash!
        
        Fragensteller
        
        2012-08-03 10:48
        
        User since
        2012-08-01
        37 Artikel
        BenutzerIn
        
        jupp, habs gelesen, geändert und nun gehts...
        
        DANKE
- payx
  
  2012-08-03 10:18
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Fragensteller,
  
  um zu sehen, was in @aRegeln steht, schreibe:
  
  Code (perl): (dl )
  
  1 2
  
  use Data::Dumper; print Dumper \@aRegeln;
  
  Benutze auf jeden Fall use strict; und use warnings;.
  
  Was willst Du in Deinem Beispiel machen?
  
  Du hast einen Hash %hGlobal, mit einem Schlüssel rules. Dieser soll offenbar das Array mit den Regelsätzen aufnehmen, die ihrerseits Arrays sind. Das ist eine komplexe Datenstruktur, die sehr wohl sinnvoll sein kann. Du kommst aber nicht darum herum, Dich in Datenstrukturen einzuarbeiten: perldoc perdsc oder z.B. FaqTypen.
  
  Erstmal Dein Ansatz:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %hGlobal; my @aRegel0 = qw ( foo0 bar0 ); my @aRegel1 = qw ( foo1 bar1 ); my @aRegel2 = qw ( foo2 bar2 ); my @aRegel3 = qw ( foo3 bar3 ); @{$hGlobal{rules}} = ( @aRegel0, @aRegel1, @aRegel2, @aRegel3 ); #my @aRegeln = @{$hGlobal{rules}}; # wozu? print Dumper \%hGlobal; # Die ganze Datenstruktur print $hGlobal{rules}->[0]; # Zugriff auf einen Wert
  
  Die Regeln stehen einfach alle nacheinander in dem einen Array. (Da Du weißt, dass sie immer ein Paar bilden, kannst Du so trotzdem darauf zugreifen. Du kannst sogar leicht einen Hash daraus erzeugen, in dem die Regeln als Key-Value-Paare enthalten sind: my %hRegeln = @{$hGlobal{rules}};)
  
  Was du vermutlich wolltest, sind ArrayRefs:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %hGlobal; my @aRegel0 = qw ( foo0 bar0 ); my @aRegel1 = qw ( foo1 bar1 ); my @aRegel2 = qw ( foo2 bar2 ); my @aRegel3 = qw ( foo3 bar3 ); @{$hGlobal{rules}} = ( \@aRegel0, \@aRegel1, \@aRegel2, \@aRegel3 ); print Dumper \%hGlobal; # Die ganze Datenstruktur print $hGlobal{rules}->[0]->[0]; # Zugriff auf einen Wert
  
  HTH
  Grüße
  payx

View all threads created 2012-08-03 09:46.