Author: A. NimbrechtA. Nimbrecht Date: Dec 4, 2006 08:34
Hallo NG!
Ich habe einige CSV-Dateien zu bearbeiten und habe mir dafür
Tie::Handle::CSV aus dem CPAN herausgesucht. Bisher bin ich am
grundlegenden Herumexperimentieren:
In der Test-Datenbank stehen folgende Einträge:
"Datum";"Name";"Betrag"
04.12.06;"A. Säger";163,01
05.12.05;"Peter A. Mustermann";300,50
Ausgelesen wird das mit abgleich.pl:
#!/usr/bin/perl
use strict;
use warnings;
use Tie::Handle::CSV;
my $csv_fh = Tie::Handle::CSV->new('test.csv', header => 1, sep_char => ';')
my $first_line = <$csv_fh>;
print $first_line ."\n";
print $first_line->{'Betrag'} . "\n";
Das gibt aus:
|