Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie? - #59374 (Allgemeines zu Perl)

duerov

2005-11-07 12:09

User since
2005-10-26
27 Artikel
BenutzerIn
[default_avatar]

Es geht dabei um das ganze Beispiel, nicht um das Text::CSV_XS. Habs aufgrund der Länge bloß nicht ganz zitiert.
Anfangs noch schnell die Frage: Wie ließt man bzw. was machen die Pfeile -> ?
Ich "verstehe" :-) den Code so:

Hier schätze ich mal trennt er in der .csv nach jedem ;
Hab mir das Modul Text::CSV runtergeladen, da bei Text::CSV_XS stand, dass der nur für die Linuxplatform sei.

Code: (dl )

my $parser = Text::CSV_XS->new({sep_char => ';'});

Was hier passiert ist mir nicht so klar. Man öffnet doch normalerweise mit open(DATA,"$file"). Was steht denn hier bei $fh drin, die erste Zeile?

Code: (dl )

open(my $fh,"<$file") or die $!;

Dann wird wohl Zeile für Zeile durchlaufen und jede Zeile (mit dem Modul) geparst?

Code: (dl )

1
2

while(my $line = <$fh>){
 if($parser->parse($line)){

Hm, das ->fields() ist mir nicht ganz klar.

Code: (dl )

my @fields = $parser->fields();

Hier werden die Zeilen in @entries nacheinander reichgeschrieben? $fields[-1] ?

Code: (dl )

1
2

   push(@entries,[$line,$fields[-1]]);
 }

Hier ist die Sortierung nach dem letzten Feld.

Code: (dl )

my @sorted = map{$_->[0]}sort{$a->[1] <=> $b->[1]}@entries;

Naja, wenn ich die paar Sachen wüsste wäre mir die ganze Sache mit den Modulen vielleicht ein wenig klarer.
Ich danke schonmal im Voraus
duerov