Thread DBD-CSV und whitespaces??? (12 answers)
Opened by Andreas at 2003-11-04 11:32

Andreas
 2003-11-04 11:32
#69127 #69127
User since
2003-09-24
111 Artikel
BenutzerIn
[default_avatar]
Hallo an alle,

ich möchte eine Datei via SQL auswerten, die Spalten der Datei sind mit einer nicht definierten Anzahl von spaces getrennt.
Ich hábe es mit dbd-csv versucht nur irgendwie bekomm ich es nicht hin:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl
use DBI;
 $dbh = DBI->connect("DBI:CSV:f_dir=csvdb")
 or die "Cannot connect: " . $DBI::errstr;

$dbh =   DBI->connect("DBI:CSV:");
        $dbh->{'csv_tables'}->{'index'} = {
                        sep_char     => " ",
                        quote_char   => undef,
                        eol          => undef,
                        escape_char  => undef,
                        always_quote => 0,
                        file => 'test.txt',
            col_names => ["pos", "qnt", "part", "housing"]
        };

 my $sth=$dbh->prepare("SELECT * FROM index");
 $sth->execute() or die "Cannot execute: " . $sth->errstr();

            while (my @ausgabe = $sth->fetchrow_array)
            {
            print $ausgabe[0]."\t".$ausgabe[1]."\n";
            }


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

im sep_char müsste irgendwie so etwas stehen:

Code: (dl )
                        sep_char     => qr/\s+/,

aber das funzt irgenwie nicht,
hat mir jemand von euch einen Tip wie ich das lösen könnte?

Danke schon mal

View full thread DBD-CSV und whitespaces???