Leser: 1
![]() |
![]() |
10 Einträge, 1 Seite |
Text::CSV oder
Text::CSV_XS hingewiesen wird, habe ich überlegt mal meine übliche Vorgehensweise zu ändern und eines der Module zu probieren (XS). So richtig intuitiv finde ich es aber auch nicht, oder nutze ich es irgendwie falsch?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;)
DBD::CSV findet sich auch im Wiki...
![]() |
![]() |
10 Einträge, 1 Seite |