2-dimensionales Array mit Spaltenname (gelöst) (Allgemeines zu Perl)

[thread]17140[/thread]

2-dimensionales Array mit Spaltenname [gelöst]

Tags: perl5 multidimensional Arrays Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+5 replies
Gast jürgen

2012-02-08 11:11
Hallo liebe Community,

ich habe jetzt versucht in Perl objektorieniert zu Programmieren. Alles klappt soweit recht gut. Nur habe ich ein kleines Problemchen, was ich nicht auf die Reihe bekomme:

Bsp.:
Ich habe eine Programm, welches Autos verwaltet, die sich gerade im Parkhaus befinden. (Methode: getAutos() liest alle Autos aus dem Programm und speichert diese in einer .txt mit ";" als Seperator) Die sich daraus ergebende Datei sieht dann beispielsweise so aus:
----------
--- AUTOS.TXT ---
Code: (dl )

1 2 3 4 5 6

Zeile1: BMW;520i;schwarz;2008 Zeile2: BMW;520i;blau;2009 Zeile3: VW;Golf I;lila;1989 Zeile4: VW;Passat;schwarz;2011 Zeile5: Mercedes;S-Klasse;blau;2012 Zeile6: Opel;Safira;schwarz;1999
----------

Nun lese ich aus der .txt die Werte Zeile für Zeile aus und speichere diese in ein 2d-Array (Methode arrayAutos() gibt ein 2d Array zurück)
Jetzt habe ich folgendes Array:
----------
@autos;
Code: (dl )

1 2 3 4

$autos[i][0] --> Hersteller (z.B. BMW) $autos[i][1] --> Baureihe (z.B. 520i) $autos[i][2] --> Farbe (z.B. blau) $autos[i][3] --> Baujahr (z.B. 1999)
-----------

Nun will ich aber in der ersten Methode "getAutos()" Parameter übergeben, welche Felder er aus dem Programm auslesen soll. Dann würde ein Aufruf so aussehen: getAutos(Hersteller,Baujahr,Zustand,Unfälle,usw). Die TXT Datei würde dann ebenfalls so Strukturiert (Hersteller;Baujahr;Zustand;Unfälle;usw)

Soweit habe ich alles schon gemacht. Jetzt ist das Problem, dass ich nicht weiß, in welcher Spalte welche Info steht, weil das dynamisch ist. Ich habe eine weitere Methode, die mir sagen soll, dass wenn das Auto ein Unfall hatte, er dieses in ein seperates Array speichern soll. Ich könnte ja sagen Array[i][3] ist die Spalte für die Unfälle, aber dann müsste der getAutos() Aufruf genau an der vierten Stelle die Unfälle auflisten. Das möchte ich dynamischer gestalten.

Meine Idee war, einen Hash zu benutzen, durch den ich dann der Spalte einen Namen geben kann und im Code einfach sagen kann.
----------
Code: (dl )

1 2 3

if(Array[i]{"Unfälle"} == 1){ Dann mach was; }else{mach was anderes}
----------

Erstens weiß ich leider nicht ob diese Syntax korrekt ist und zweitens bekomme ich das nicht so richtig hin, dass ein Array durch Spaltennamen aufgerufen werden kann.

Hättet Ihr da eine Idee oder habt Ihr da schon was in der Richtung gemacht?

Beste Grüße
Jürgen

modedit Editiert von pq: code-tags um die daten und code-schnipsel gesetzt, bitte Formatierungshife lesen
Last edited: 2012-02-08 12:02:51 +0100 (CET)
- hlubenow
  
  2012-02-08 13:14
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Vielleicht bin ich gerade zu müde, aber ich les' immer nur 'Auto'.
  Könntest Du bitte versuchen, das Problem etwas vereinfacht darzustellen und auf das Wesentliche zu reduzieren? Ich kann im Moment nicht Dein ganzes Skript nachvollziehen.
  
  Generell hilft es manchmal, ein Modul zum Parsen von CSV einzusetzen, z.B.
  
  http://search.cpan.org/search?query=Text%3A%3ACSV&...
  
  Obwohl ich solche Dateien eigentlich auch lieber von Hand verarbeite.
  Last edited: 2012-02-08 13:18:21 +0100 (CET)
- pq
  
  2012-02-08 13:24
  User since
  2003-08-04
  12208 Artikel
  Admin1
  ich kann auch nur raten, und wenn ich es richtig verstehe, hatte ich einen ähnlichen fall.
  
  wenn die feldpositionen "dynamisch" sind, hast du ja aber bestimmt irgendwo eine info, wo die felder in der reihenfolge festgelegt sind.
  
  aus der reihenfolge machst du einen hash:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @fields = qw/ Farbe Baujahr ... /; my %mapping; for my $ix (0 .. $#fields ) { $mapping{ $fields[ $ix ] } = $ix; }
  
  dann hast du ein mapping von name => index
  
  dann kannst du sagen:
  
  Code (perl): (dl )
  
  print $autos[$i]->[ $mapping{Farbe} ];
  
  statt
  
  Code (perl): (dl )
  
  print $autos[$i]->[ 0 ];
  
  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
- Linuxer
  
  2012-02-08 13:25
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Arrays nutzen Zahlen zur Inidizierung, da kannst Du nicht direkt mit Namen arbeiten.
  Für Zugriff via Namen sind Hashes ideal.
  edit: pq hat einen möglichen Workaround aufgezeigt /edit:
  
  Du kannst die Daten beispielsweise in einen Array-of-Hashes einlesen.
  Jedes Array-Element enthält eine Referenz auf einen anonymen Hash, der pro Spaltenname die jeweilige Information enthält.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my @auto = ( # erstes Auto { Hersteller => 'foo', Modell => 'bar', # aka Baureihe Farbe => 'grau', Baujahr => '1984', }, # nächstes Auto );
  
  Die Dokumentation zu komplexeren Datenstrukturen findest Du z.B. dort: perldsc
  Last edited: 2012-02-08 13:26:30 +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!
- Patterner
  
  2012-02-10 00:17
  User since
  2007-01-02
  25 Artikel
  BenutzerIn
  Ich habe normalerweise in der ersten Zeile der Datei die Überschriften.
  
  Code: (dl )
  
  1 2 3
  
  Zeile1: Hersteller;Baureihe;Farbe;Baujahr Zeile2: BMW;520i;schwarz;2008 Zeile3: BMW;520i;blau;2009
  
  Dann kann man die Namen in ein Feld einlesen und dann damit die Hashes für die Autos füllen
  “I’m working on it.”

View all threads created 2012-02-08 11:11.