theoretische Frage zu hashes of hashes (Allgemeines zu Perl)

[thread]15524[/thread]

theoretische Frage zu hashes of hashes

Leser: 25

Articles: hide open all | hide show old branches

+8 replies
suresh

2010-10-12 10:13
User since
2010-10-12
109 Artikel
BenutzerIn
Hallo Community,
ich habe eine theoretische Frage zu hashes of hashes!
Ich möchte eine Datenstruktur aufbauen, die dynamisch erweiterbar ist.
D.h. ich weiss nicht, wieviele Dimensionen ich haben werde sondern diese sollen je nach Bedarf angelegt werden. Der Input kommt über ein Array(value) und ein Skalar (key). Wobei die Values aus dem Array im Nächsten Schleifendurchlauf wieder geprüft werden müssten, ob diese gleich dem (neuen) Key sind um dort die (neuen) Values aus dem Array zu hinterlegen. Ist sowieso überhaupt möglich in Perl?Oder ist mein Ansatz zu kompliziert?
Code: (dl )

1 2 3 4 5 6 7

Parent1 -> Child1 Child2 -> Child2.1 -> Child2.1.1 Child3 Child2.2 Child2.1.2 -> Child2.1.2.1 .... Child2.3 ... Child2.4 -> Child2.4.1 Child2.4.2 -> Child2.4.2.1 Child2.4.3 ...
Grüße
Last edited: 2010-10-12 10:21:44 +0200 (CEST)
- renee
  
  2010-10-12 10:23
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Das ist grundsätzlich in Perl kein Problem. Kannst Du vielleicht mal Beispieldaten für den Beispielbaum posten, wie sie am Anfang vorliegen?
  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/
- lichtkind
  
  2010-10-12 13:38
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  stell dir folgendes vor:
  
  in einen skalar (einfache variable) kann man alles speichert auch einen Zeiger auf einen array (liste) oder hash (2spaltige tabelle). und diese arrays und tabellen bestehen auch wieder aus den gleichen einfachen zellen.
  
  ist wie ein Baukasten :)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- +5 replies
- FIFO
  
  2010-10-12 17:06
  
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  
  Schau mal perldoc perldsc an, das sollte alle Fragen klären.
  Gruß FIFO
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +4 replies
  - Nordlicht
    
    2010-10-12 17:31
    User since
    2005-10-16
    182 Artikel
    BenutzerIn
    
    Code: (dl )
    
    1 2
    
    use Data::Dumper; print Dumper $Struktur;
    
    Ich bastel grad auch mit sowas und wollte nur mal dieses Modul empfehlen, falls du es noch nicht kennst... damit behält man den Überblick besser bei großen Datenstrukturen :-)
    - +3 replies
    - suresh
      
      2010-10-12 20:40
      
      User since
      2010-10-12
      109 Artikel
      BenutzerIn
      
      Ich möchte mich erstmal rechtherzlich für eure replies bedanken. Ich habe mir sowohl das perldsc als auch das perlreftut durchgelesen, hatte ich vergessen zu erwähnen sorry.
      Interessant finde ich als Ausgangspunkt das perlreftut mit folgendem Beispiel:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      1. %table 2. +-------+---+ 3. | | | +-----------+--------+ 4. |Germany| *---->| Frankfurt | Berlin | 5. | | | +-----------+--------+ 6. +-------+---+ 7. | | | +----------+ 8. |Finland| *---->| Helsinki | 9. | | | +----------+ 10. +-------+---+ 11. | | | +---------+------------+----------+ 12. | USA | *---->| Chicago | Washington | New York | 13. | | | +---------+------------+----------+ 14. +-------+---+
      
      Das ganze ist natürlich ein Hash of Arrays! Allerdings könnte man das ja erweitern zu:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      1. %table 2. +-------+---+ 3. | | | +-----------+--------+ 4. |Germany| *---->| Frankfurt | | | | | | Berlin| *----> |Wedding|Köpenick|Kreuzberg| 5. | | | +-----------+--------+ 6. +-------+---+ 7. | | | +----------+ 8. |Finland| | Helsinki | | | | | *---->| Oulu | | | | | | Salo | | | | | | Tampere | 9. | | | +----------+ 10. +-------+---+ 11. | | | +---------+------------+----------+ 12. | USA | | Chicago | | | | | *---->| Washington | | | | | | New York | *----> | Manhatten | 13. | | | +---------+------------+----------+ 14. +-------+---+
      
      Jetzt habe ich allerdings ein Problem. Ich bekomme die Länder, Städtenamen und Stadtteile jeweils über eine definierte Schnittstelle in ein array übergeben zb @output. Wie kann ich daraus ein dynamisches hash of hash machen?
      
      Code: (dl )
      
      1 2 3
      
      my $tree = {} $tree{$key} = \@output;#Baumstruktur }
      
      Grüße
      - pq
        
        2010-10-12 21:08
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        gleich nebenan geht es um ein ähnliches thema: Suche Tie-Hash Modul um Flachen Hash in einen Baum zu wandeln
        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
      - Taulmarill
        
        2010-10-13 14:47
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Wenn man nicht weiß, was du damit machen willst, ist es schwer die optimale Datenstruktur zu finden. Aber hier wäre schon mal ein Beispiel, welches nur Hashes benutzt:
        
        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
        
        my %table = ( Germany => { Frankfurt => {}, Berlin => { Wedding => {}, Koepenick => {}, Kreuzberg => {}, }, }, Finnland => { Hellsinki => {}, Oulu => {}, Salo => {}, Tampere => {}, }, USA => { CHicago => {}, Washington => {}, 'New York' => { Manhatten => {}, }, }, );
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2010-10-12 10:13.