Opened by rommmi at 2006-07-06 15:17
User since
2003-08-21
2613 Artikel
ModeratorIn
2003-08-21
2613 Artikel
ModeratorIn
[quote=renee,07.07.2006, 13:29]Dann dürfte Dein 
DBD::CSV kaputt sein...[/quote]
Nein, ich hatte dasselbe Ergebnis, bis ich in Deinem Code noch ein "csv_eol=\n" dazugeschrieben habe. Und ich habe die Semikola am Ende der Zeile entfernt, weil sie leere Felder eingeleitet haben.
Hier nochmal zum Mitschreiben:
\n\n
<!--EDIT|betterworld|1152276309-->
DBD::CSV kaputt sein...[/quote]Nein, ich hatte dasselbe Ergebnis, bis ich in Deinem Code noch ein "csv_eol=\n" dazugeschrieben habe. Und ich habe die Semikola am Ende der Zeile entfernt, weil sie leere Felder eingeleitet haben.
Hier nochmal zum Mitschreiben:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $file = 'test.csv';
my $dbh = DBI->connect('DBI:CSV:') or die $DBI::errstr;
$dbh->{csv_tables}->{'info'} = {
sep_char => ';',
eol => "\n",
file => $file,
};
my $sth = $dbh->prepare('SELECT * FROM info') or die $dbh->errstr;
$sth->execute() or die $sth->errstr;
while(my @row = $sth->fetchrow_array()){
@row = grep{defined $_ }@row;
print '<<', join("--",@row),">>\n";
}
$sth->finish();
Code: (dl
)
1
2
3
4
5
6
"ID";"Ticket-Nr";"Status";"Stadt"
0;"test";"offen";"Musterstadt"
1;"067284-01";"arbeit erledigt Test";"Kiel"
2;"067285-02";"arbeit offen
Test";"Bonn"
3;"067289-03";"arbeit offen Test";"Bonn"
<!--EDIT|betterworld|1152276309-->
Lieblingsmodule: IPC::System::Simple, Path::Class
IPC::System::Simple, Path::Class