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

[thread]16919[/thread]

Shell-Aufruf im PerlScript (Sqlite3)

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+11 replies
Gast Pennpann

2011-11-16 11:06
Hallo!
Also, ich will in meinem PerlScript ein CMD Fenster öffnen, dieses mit Sqlite3 Befehlen füllen und ausführen, dass alles soll im Hintergrund passieren. Theoretisch weiß ich auch wie das funktioniert, nur praktisch bekomme ich es nicht ganz hin... :(

Mein Aufruf sieht momentan wie folgt aus:
Code: (dl )

1 2

open(cmd,"cd C:\\Daten\\DB_Erstellung && sqlite3 daten.db <C:/Daten/DB_Erstellung/import.cmd|") || die "Failed: $!\n"; close(cmd);
Es soll also ins Verzeichnis "C:\\Daten\\DB_Erstellung" gesprungen werden, dann soll der Befehl "sqlite3 daten.db <C:/Daten/DB_Erstellung/import.cmd|" ausgeführt werden.
In der import.cmd steht dabei folgendes:

.separator " "
.import DB1.txt DB1
Wenn ich den Befehl "cd C:\\Daten\\DB_Erstellung && sqlite3 daten.db </Daten/DB_Erstellung/import.cmd" manuel über cmd Aufrufe funktioniert alles so wie es soll, aber über das PerlScript nicht...was mache ich falsch?
Last edited: 2011-11-16 11:16:59 +0100 (CET)
- +3 replies
- GwenDragon
  
  2011-11-16 11:45
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Quote
  über cmd Aufrufe funktioniert alles so wie es soll, aber über das PerlScript nicht
  
  Sei mir nicht bös, aber das ist sehr vage beschrieben!
  Was kommt als Fehlermeldung?
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast Pennpann
    
    2011-11-16 12:01
    
    Ehrlich gesagt bekomme ich keine... >.< er läuft einfach drüber. Die Sache ist aber die, also die daten.db wurde vorher schon von dem PerlScript erstellt und soll nun gefüllt werden, sie ist also schon lokal in dem Verzeichnis vorhanden. Allem anschein nach öffnet er sie auch, denn wandele ich den Befehl:
    "cd C:\\Daten\\DB_Erstellung && sqlite3 daten.db <C:/Daten/DB_Erstellung/import.cmd"
    in:
    "cd C:\\Daten\\DB_Erstellung && sqlite3 daten2.db <C:/Daten/DB_Erstellung/import.cmd" um, erhalte ich die Fehlermeldung Error: no such table: DB1. D.h. es öffnet die lokale Tabelle korrekt, findet die .cmd Datei, liest diese korrekt aus und führt demnach auch den Befehl korrekt aus (da ohne den .import Befehl ja nicht die entsprechende Fehlermeldung erscheinen würde, oder?) Aber er schreibt letzt Endes trotzdem nichts in die Tabelle....
    Nur verstehe ich nicht wieso? Muss der Befehl anders aussehen? Muss ich anstelle des "<" etwas anderes angeben? Wobei er die Datei ja öffnet
    
    Und sorry ich programmiere sonst nicht mit Perl :/
    - Pennpann
      
      2011-11-16 12:07
      
      User since
      2011-11-16
      4 Artikel
      BenutzerIn
      
      Oder fehlt irgendetwas in der Art eines Executes? Also eine entglültige Übergabe der Daten an die Tabelle? Sorry wegen Doppelpost...hab mich jetzt mal registriert :)
      Last edited: 2011-11-16 12:12:40 +0100 (CET)
- GwenDragon
  
  2011-11-16 12:26
  User since
  2005-01-17
  14533 Artikel
  Admin1
  so gehts bei mir:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  use strict; use warnings; open(my $cmd, qq{cd /D X:\\tmp\\Daten\\DB_Erstellung && X:\\usr\\local\\sqlite\\sqlite3.exe daten.db <X:/tmp/Daten/DB_Erstellung/import.cmd | } ) || die "Failed: $!\n"; print while (<$cmd>); close($cmd); =pod #Daten in import.cmd create table tbl1(one varchar(1), two smallint); insert into tbl1 values('hello!',10); insert into tbl1 values('goodbye', 20); select * from tbl1; =cut
  
  Es ist sinnvoll, den Pfad auf sqlite3.exe anzugeben, wenn der nicht im Suchpfad ist.
  Last edited: 2011-11-16 12:27:34 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +6 replies
- Gast wer
  
  2011-11-16 12:30
  Würde die Sache anders angehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  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");
  - +5 replies
  - GwenDragon
    
    2011-11-16 12:35
    
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    Zu ersterem:
    für einen Perl-Anfänger schier nicht nachvollziehbar ohne Erklärungen!
    Und wo liegt der Vorteil bei deiner Lösung im Gegensatz zum Aufruf der cmd.exe?
    
    zu letzterem:
    Solange DBD::SQLite installiert ist, mag das ja angehen.
    Die Batchdatei wird immer funktionieren.
    Last edited: 2011-11-16 12:36:56 +0100 (CET)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +4 replies
    - Pennpann
      
      2011-11-16 13:02
      
      User since
      2011-11-16
      4 Artikel
      BenutzerIn
      
      Kann es sein, dass der .import Befehl aus einer cmd Datei nicht ausgeführt werden kann? mit insert klappt es, aber nicht mit .import... es sind sehr viele Datensätze, insgesamt über 20 Millionen Einträge in über 50 Tabellen und für jede dieser Tabellen existiert eine eigene .txt Datei. Mit .import wäre das ja die einfachste Lösung...
      
      Und ist es möglich mit Hilfe von DBI eine Tabelle auf einer schon lokal vorhandenen Datenbank durch eine .txt Datei zu füllen?
      Last edited: 2011-11-16 13:03:43 +0100 (CET)
      - +3 replies
      - Pennpann
        
        2011-11-16 14:12
        
        User since
        2011-11-16
        4 Artikel
        BenutzerIn
        
        Okay...
        Es geht >.<
        
        Ich bin einfach nur doof, bzw. wusste nicht, dass die DB währenddessen nicht geöffnet sein darf ^^"
        
        Frage mich nur wieso ich da dann keine Fehlermeldung bekommen habe.
        
        Naja trotzdem Danke für eure Hilfe :)
        
        +2 replies
        
        GwenDragon
        
        2011-11-16 14:59
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        SQLite ist eine Datei, mit der Unmöglichkeit mehrfach darauf zuzugreifen zu können; die ist nur atomar zu öffnen.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        Pennpann
        
        2011-11-16 15:18
        
        User since
        2011-11-16
        4 Artikel
        BenutzerIn
        
        Sie wurde ja durch das PerlScript geöffnet um zur Laufzeit durch alle Tabellen zu loopen, um so deren Namen zu erfahren und diese währenddessen zu füllen. Sie wurde also nicht durch ein externes Programm geöffnet, kam mir recht schlau vor, da ich wie gesagt auch keine Fehlermeldung bekam.
        
        Kam dann durch dein insert darauf, denn wenn ich das während so einem Durchlauf verwende, dann bekomme ich die Meldung das die Tabelle gelockt ist. Bei einem .import jedoch nicht, kam jdnfalls durch dich drauf :)
        
        Danke dir!

View all threads created 2011-11-16 11:06.