Problem mit DBD::CSV: SELECT * FROM ... bring kein Ergebnis - #31855 (Datenbanken und Verzeichnisdienste)

format_c

2004-03-20 20:14

User since
2003-08-04
1706 Artikel
HausmeisterIn

Hi,
Ich möchte eine CSV-Datei mit DBI bearbeiten.

Habe Quelldatei in /home/format_c/tmp/csvdb :
mit folgendem Inhalt:

Code: (dl )

1
2

1,"0000000000000","Christine"
2,"+49000000000000","PS, Bernhardt"

Jetzt möchte ich einfach mal alle Einträge sehen damit ich weis dass DBD::CSV funktioniert. Aber irgendwie bin ich zu blöd.
Hier mein Code:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use DBI;

# Declare variables
my $db = '/home/format_c/tmp/csvdb/';
my $prefix = '+49';

# Makes a Datebase Handler
my $dbh = DBI->connect("DBI:CSV:f_dir=$db;csv_sep_char=,;")  or die DBI::errstr;
$dbh->{csv_tables}->{phonebook} = { file => 'Phonebook_SM.csv' };

my $sql = qq|
                                                SELECT * FROM phonebook
                                                |;
                                                
my $sth = $dbh->prepare( $sql ) or die $dbh->errstr;                    
$sth->execute() or die $dbh->errstr;
while (my @row = $sth->fetchrow_array()) {
        print join "\t",@row . "\n";
}

$sth->finish();
$dbh->disconnect();

exit;

Ergibnis:

Code: (dl )

1
2

format_c@linux:~/Develop/Perl/Update Phonebook> perl set_germ_prefix.pl 
format_c@linux:~/Develop/Perl/Update Phonebook>

Kann mir jemand helfen?

Gruß Alex

Effizente Linuxshell