Thread .csv Zeilenweise in (Hash?)Array einlesen & auf einzelne Werte zugreifen (7 answers)
Opened by norvel at 2012-07-26 14:26

topeg
 2012-07-26 14:37
#160203 #160203
User since
2006-07-10
2611 articles
BenutzerIn

user image
benutze doch CPAN:Text::CSV. Das übernimmt die meiste Arbeit für dich, und kann das besser als jeder Anfänger.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

# Ausgabe von Datenstrukturen
use Data::Dumper;

$input_file_name = "test_file.csv";

my $csv = Text::CSV->new ( { sep_char => ',', eol => $\  } )

open(my $fh,'<',$input_file_name) or die "Can not open file $input_file_name ($!)\n";

my @data;
while ( my $row = $csv->getline( $fh ) )
{
  push(@data,$row);
}

print Dumper(\@data);

View full thread .csv Zeilenweise in (Hash?)Array einlesen & auf einzelne Werte zugreifen