Array zeilenweise auslesen (gelöst) - #182725 (Allgemeines zu Perl)

lichtkind

2015-10-28 19:57

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

was mir erstmal aussällt istdas es vielleicht einfacher wird wenn du die ganzen arrays in einen zusammenhängenden hash packst, damit nciht alles so lose rumfliegt und zusammen ist was inhaltlich zusammen gehört. dann sieht das sehr nach CSV aus. schau mal nach CPAN:

Text::CSV. Wenn du den sep_char auf tab setzt macht es schonmal einen Teil der arbeit für dich und fängt nebenbei schonmal di emeisten dreckigen Grenzfälle ab.
Dann nutze Bitte einen Handle in einer Variable und 3 paramteter open, also insgesamt:

Code (perl): (dl )

open (my $DATEI, '>>', "Neu.txt");

Code (perl): (dl )

use v5.12;  # strict inclusive
use Text::CSV;
 
my @rows;
my $file = "Test.txt";
my $csv = Text::CSV->new ( { binary => 1, sep_char => "\t" } )  # should set binary attribute.
                or die "Cannot use CSV: ".Text::CSV->error_diag ();
 
open my $IN, "<:encoding(utf8)", $file or die "$file: $!";
open (my $OUT, '>>', "Neu.txt");

while ( my $row = $csv->getline( $IN ) ) {
    say $OUT $row->[1],"\t", $row->[13]);
}
close $IN;
close $OUT;

Last edited: 2015-10-28 19:59:13 +0100 (CET)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.