Shell-Aufruf im PerlScript (Sqlite3) - #154241 (Datenbanken und Verzeichnisdienste)

Gast wer

2011-11-16 12:30

Würde die Sache anders angehen:

Code (perl): (dl )

my $dir='C:/Daten/DB_Erstellung/';
my $file='import.cmd';
my $cmd='sqlite3 daten.db';

# slurp
my $data=eval{local($/,@ARGV)=(undef,"$dir$file"); <>};

chdir($dir) or die("cd error: $!");

open(my $ph, '|-', $cmd) or die("open error: $!");
print $ph $data;
close($ph);

oder DBI nutzen:

Code (perl): (dl )

1
2

use DBI;
my $dbh = DBI->connect("dbi:SQLite:$dbfile");