Leser: 1
10 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS;
use Data::Dumper;
my $csv = new Text::CSV_XS({sep_char => ';'});
open (FILE, '<', 'dummy_adressbook.txt') or die "Couldn't open file: $_\n";
my $rows;
@$rows = map { [$csv->parse($_) and $csv->fields()] } (<FILE>);
close(FILE);
die Dumper $rows;
1
2
my $csv = slurp Text::CSV({separator => ';', file => $filename});
# $csv ist ein AoA und alles ist gut;)
10 Einträge, 1 Seite |