Opened by Christian at 2014-07-08 22:27
Hallo,
ich habe einige Daten in CSV Tabelle gespeichert und möchte dies auch unter Perl 5.16.3 tun, jedoch will das ganze nicht so wie ich mir das dachte.
Meine Scripte laufen nicht mehr :(
Selbst bei den einfachsten Test funktioniert es nicht, mein Ziel ist es auf eine CSV in einem anderen Verzeichnis als das Script liegt zuzugreifen. Also hier mal das einfache Beispiel:
$DBDIR (C:\Temp\CSV-DB) soll das Verzeichnis mit der CSV Datei sein, das Script liegt unter C:\Temp\. Alle hier auskommentierten Varianten erstellten auch eine foo.csv unter C:\Temp\ und nie unter C:\Temp\CSV-DB.
Ein Select findet unter keiner mir eingefallenen Varinte eine Datei unter C:\Temp\CSV-DB. Bin etwas ratlos, unter Perl 5.10 und Windows 2003 lief das alles...
Last edited: 2014-07-08 22:40:05 +0200 (CEST)
ich habe einige Daten in CSV Tabelle gespeichert und möchte dies auch unter Perl 5.16.3 tun, jedoch will das ganze nicht so wie ich mir das dachte.
Meine Scripte laufen nicht mehr :(
Selbst bei den einfachsten Test funktioniert es nicht, mein Ziel ist es auf eine CSV in einem anderen Verzeichnis als das Script liegt zuzugreifen. Also hier mal das einfache Beispiel:
$DBDIR (C:\Temp\CSV-DB) soll das Verzeichnis mit der CSV Datei sein, das Script liegt unter C:\Temp\. Alle hier auskommentierten Varianten erstellten auch eine foo.csv unter C:\Temp\ und nie unter C:\Temp\CSV-DB.
Ein Select findet unter keiner mir eingefallenen Varinte eine Datei unter C:\Temp\CSV-DB. Bin etwas ratlos, unter Perl 5.10 und Windows 2003 lief das alles...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use DBI;
my $DBDIR='C:\Temp\CSV-DB';
# my $DBDIR="C:\\Temp\\CSV-DB";
# my $DBDIR='C:\Temp\CSV-DB\\';
# my $DBDIR='..\CSV-DB';
# my $DBDIR="..\\CSV-DB";
# my $DBDIR='CSV-DB';
# my $DBDIR='\CSV-DB';
# my $DBDIR='\\CSV-DB';
# my $DBDIR='.\CSV-DB';
# my $DBDIR='/CSV-DB';
# my $DBDIR='./CSV-DB';
$dbh = DBI->connect ("dbi:CSV:", undef, undef, {
f_dir => [$DBDIR],
#f_dir_search => [$DBDIR],
f_ext => ".csv/r",
RaiseError => 1,
}) or die "Cannot connect: $DBI::errstr";
# Simple statements
$dbh->do ("CREATE TABLE foo (id INTEGER, name CHAR (10))");
##############################################################
Last edited: 2014-07-08 22:40:05 +0200 (CEST)