CSV Datei als Hash aufbauen (gelöst) - #147857 (Allgemeines zu Perl)

PETER_PAN2009

2011-04-19 16:58

User since
2009-08-24
111 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen!

Ich stehe wieder mal vor einem Problemchen. Ich habe eine CSV-Datei die ich durchparsen muss. Dabei sollen die Werte in eine Excel Tabelle geschrieben werden. Die Quelle für die Excel-Talle soll ein Hash sein.

Format der Datei:

Code: (dl )

1
2
3

Name,Vorname,Alter
Meyer,Peter,56
Schmidt,Andre,74

Die Datei lese ich ganz normal ein:

Code (perl): (dl )

1
2
3

open ($FH,"<", "test.csv") || die $!;
my @inhalt = <$FH>; 
close $FH;

Danach möchte ich die Werte aus der ersten Zeile als Keys in meinem Hash verwenden:

Code (perl): (dl )

my %hash = map { $inhalt[0] => 1 } @inhalt;

Jetzt kommt die foreach Schleife, inder ich die restlichen Zeilen als Values haben möchte. Und hier ist auch das Problem, wie kriege ich es hin, dass der Key "Name" die Values "Meyer" und "Schmidt" zugeweisen bekommt?

Danke und Gruß
Peter

Text::CSV