hash und Referenz (Allgemeines zu Perl)

[thread]14248[/thread]

hash und Referenz

Leser: 27

Articles: hide open all | hide show old branches

+8 replies
worst_case

2009-11-12 20:35

User since
2007-08-18
46 Artikel
BenutzerIn

Hallo,

ich will mehrere Hash "name[0..x]" erzeugen die ich per Referenz auf ein neues Hash "test" lege.
d.h.
das hash "test" hat pro Schlüssel eine Referenz auf jeweils ein anderes hash.

Meine Frage. Wie kann ich mehrere hash dynamisch anlegen ??

Gruß
worst_case
Last edited: 2009-11-12 20:37:24 +0100 (CET)
- +7 replies
- renee
  
  2009-11-12 20:37
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Kannst Du das genauer erläutern, was Du willst?
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +6 replies
  - worst_case
    
    2009-11-12 22:01
    User since
    2007-08-18
    46 Artikel
    BenutzerIn
    
    Abend,
    
    danke für die schnelle Antwort.
    
    Ich lese eine CSV-Datei aus die so lautet
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    Z; 10; drehzahl ; 0 Z; 10; temperatur ; 12 M1; 11 ; drehzahl ; 0 ..... M2; 12 ; drehzahl ; 0 .....
    
    Bis jetzt werden alle Hash werden mit CPAN "Tie::AliasHash" erzeugt.(jedoch statisch)
    1. Das Hash kann mit mehr als einem Schlüssel gelesen/geschrieben werden
    2. Die Reihenfolge der Schlüssel bleibt immer gleich (lesen = erzeugen)
    
    Ich lege alle Namen (schlüssel) "drehzahl, temperatur usw." auf ein Hash.
    Dann lege ich auf den Schlüsseln ("Z","x11") die Referenz des ersten Hash.
    
    Ein Programm schreibt über den Schlüssel "x11{}" die Messwerte der Reihe nach in das Hash.(deswegen HashAlias 1. Wert = 1. Hashwert usw.)
    
    Alle anderen Programme lesen über den Schlüssel "Z{z.B. drehzahl} das Hash aus.
    
    Meine Frage/Problem: Wie kann ich jeweils ein neues (erstes) Hash erzeugen. Die Anzahl der Schlüssel (Z,M1,M2, xy) ist nicht bekannt.
    Das übergeordnete Hash wird ja nur einmal benötigt. Und wie kann ich auf des referenzierte Hash mit Schlüssel und Wert zugreifen.
    
    z.B.
    %daten hat Schlüssel Z,M1,M2,M3
    Schlüssel "Z" hat Hashreferenz auf Hash mit Schlüssel "Drehzahl"
    Schlüssel "Drehzahl" hat Wert "0"
    
    Ich hoffe ich habe es etwas verdeutlicht.
    
    Gruß
    worst_case
    - +5 replies
    - bianca
      
      2009-11-13 09:47
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Man kann Hashe auch verschachteln mit $hash{oberordnung}{unterordnung}{basis}
      
      Hilft das?
      10 print "Hallo"
      20 goto 10
      - +4 replies
      - worst_case
        
        2009-11-15 20:30
        
        User since
        2007-08-18
        46 Artikel
        BenutzerIn
        
        Hallo,
        
        wie sollte dies aussehen.
        
        $hash{"Z"}{"Drehzahl"} = messwert
        
        wenn das geht "OK"
        Dann möchte ich auch dieses Hash mit einer anderen "oberordnung" zugreifen
        z.B. m10
        
        also gefüllt/geschrieben sollte das/der Hash über $hash{"m10"}{"Drehzahl"} = 123
        gelesen über $messwert = $hash{"Z"}{"Drehzahl"}
        
        wie stelle ich dies am einfachsten an ??
        was am wichtigsten ist...wenn ich das hash erzeuge muss beim lesen aller schlüssel die Reihenfolge gleich bleiben.
        hierzu benutze ich das cpan-modul tie::hash.
        
        Gruß
        worst_case
        
        topeg
        
        2009-11-15 23:06
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        So?
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $hash{"m10"}{"Drehzahl"} = 123; $hash{"Z"}=$hash{"m10"}; $wert=$hash{"Z"}{"Drehzahl"}
        
        +2 replies
        
        Linuxer
        
        2009-11-16 13:20
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Hallo,
        
        irgendwie werd ich aus Deinen Ausführungen nicht schlau.
        Beim ersten Absatz mein ich noch, Dich zu verstehen, und muss aber beim zweiten Absatz diese Meinung wieder verwerfen...
        
        Vielleicht hilft Dir die Perl-Dokumentation, Deine Unklarheiten zu beseitigen. Da ich Deinen genauen Kenntnisstand nicht kenne, verweise ich mal auf alles, was mir dazu relevant erscheint:
        
        Einstieg in Referenzen
        
        perldoc perlreftut
        perldoc perlref
        Komplexe Datenstrukturen
        
        perldoc perldsc
        
        So nochmal beim querlesen:
        
        Du willst auf einen Hashwert $hash{"m10"} zugreifen, indem Du $hash{"Z"} ansprichst?
        Ich erkenne da zwar keinen Sinn drin, aber Du könntest auch etwas der folgenden Art versuchen (ungetestet):
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        # eigentlicher Datenhash my %data = ( 'm10' => { 'Drehzahl' => 123 }, ); # Hierin werden alternative Keys auf die echten Keys übersetzt my %translate = ( 'Z' => 'm10', ); # Zugriff my $messwert = $data{ $translate{'Z'} }->{'Drehzahl'};
        
        edit: variablennamen angepasst
        Last edited: 2009-11-16 13:24:02 +0100 (CET)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        renee
        
        2009-11-16 14:59
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2009-11-16T12:20:43 Linuxer
        [list][*] Einstieg in Referenzen [list][*][url=http://perldoc.perl.org/perlreftut.html]perldoc perlreftut[/url][/list]
        
        Und das Dokument auf Deutsch: Artikel
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/

View all threads created 2009-11-12 20:35.