Eingaben lesen und in MySql DB schreiben (Allgemeines zu Perl)

[thread]13975[/thread]

Eingaben lesen und in MySql DB schreiben

Leser: 25

Articles: hide open all | hide show old branches

+17 replies
leo11

2009-09-02 20:02

User since
2008-08-14
250 Artikel
BenutzerIn

Hallo.
Einmal mehr möchte ich bezüglich der folgenden Angelegenheit die Weisheit der perl-community zu Rate ziehen.

Ich lese Daten von der Kommandozeile über while (<>) die per Inserts/Updates in eine MySql Datenbak verfrachtet werden. Bei Eingaben wie ' \ kommt es zu unerwünschtem Verhalten.

1. Wo bekomme ich eine Übersicht welche Zeichen eine Sonderbehandlung brauchen?

2. Wie geh ich am besten damit um? Alle mit einen Backslash escapen?

3. Gibt's eine elegantere Möglichkeit als über while (<>) die Daten zu lesen? Mit History über Pfeil rauf... ?

Viele Grüße
leo11
- +14 replies
- pq
  
  2009-09-02 20:06
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  in welcher form kommen die daten denn rein? CSV?
  welches unerwünschte verhalten zeigt sich? wenn du platzhalter benutzt, sollte das kein problem sein, quotes drin zu haben.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +13 replies
  - leo11
    
    2009-09-02 20:25
    
    User since
    2008-08-14
    250 Artikel
    BenutzerIn
    
    2009-09-02T18:06:29 pq
    in welcher form kommen die daten denn rein? CSV?
    
    Das Skript startet in einer bash. Dann kommt ein Menue. Gibt man bspw. 2 ein gefolgt von Return kann man ein Update machen. Gibt man dann den Inhalt ein wird dieser in die DB geschrieben.
    
    Quote
    welches unerwünschte verhalten zeigt sich? wenn du platzhalter benutzt, sollte das kein problem sein, quotes drin zu haben.
    
    abc\def
    wird zu
    abcdef
    
    a'b
    erzeugt einen Error:
    DBD::mysql::st execute failed: You have an error in your SQL syntax;
    
    Ggf.: Was meinst du mit Platzhaltern?
    
    @GwenDragon:
    Wieso fragst du nach der DB? Hab ein 2 Stellen erwähnt das es eine MySql DB ist.
    
    Nachtrag: Ich benutze use DBI
    
    Nachtrag 2
    abc\\def
    wird zu
    abc\def
    
    a\'b
    wird zu a'b
    Last edited: 2009-09-02 20:33:28 +0200 (CEST)
    - +12 replies
    - pq
      
      2009-09-02 20:38
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2009-09-02T18:25:40 leo11
      Ggf.: Was meinst du mit Platzhaltern?
      
      platzhalter lösen dein problem =)
      
      Code (perl): (dl )
      
      1 2
      
      my $sth = $dbh->prepare("INSERT INTO foo (col1,col2,col3) VALUES(?,?,?)"); $sth->execute($value1, $value2, $value3);
      
      wir haben da sogar einen wiki-eintrag:
      DbiPlatzhalter
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +11 replies
      - leo11
        
        2009-09-02 21:01
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        Ok, hab ich mir durchgelesen.
        
        Code (perl): (dl )
        
        1 2 3
        
        my $sql = qq(update `CUST` set $field= ?, `Date`=$dat, `Time`=$time where $clause); my $sth = $dbh->prepare($sql); $sth->execute($to);
        
        nun wird
        a'b
        zu
        'a'b'
        
        Soll es so sein, dass die Singlequotes links und rechts mit in der DB stehen?
        
        +3 replies
        
        pq
        
        2009-09-02 21:07
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        nö, die werden nur reingeschrieben, wenn die werte wie $time sie auch enthalten.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        leo11
        
        2009-09-02 21:11
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        2009-09-02T19:07:25 pq
        nö, die werden nur reingeschrieben, wenn die werte wie $time sie auch enthalten.
        
        Schon klar.
        Aber a'b steht in $to!
        
        pq
        
        2009-09-02 21:16
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann schreibt DBD::mysql da quotes mit rein, die nicht reindürfen. in dem fall sende bitte einen bugreport.
        ich hatte das verhalten jedenfalls noch nie.
        mehr kann ich dazu auch nicht sagen, vermute aber weiterhin, dass in $to doch quotes aussen stehen und du sie durch falsches debugging nicht siehst...
        ein vorschlag noch, mach mal folgendes vor dem execute:
        
        Code (perl): (dl )
        
        1 2 3
        
        use Data::Dumper; local $Data::Dumper::Useqq = 1; print STDERR Dumper $to;
        
        und paste hier die ausgabe.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +7 replies
        
        topeg
        
        2009-09-02 21:14
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das sollte nicht passieren. Bist du sicher, dass die " ' " nicht schon vorher in der Variable waren?
        
        Warum setzt du nicht alle Werte wie den ersten?:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my $cause='"Id"=?'; # oder was du da stehen hast my $sql = qq(update "CUST" set "$field"=?, "Date"=?, "Time"=? where $cause); my $sth = $dbh->prepare($sql); for my $datensatz (@datensaetze) { my ($to,$dat,$time,$id)=@$datensatz; $sth->execute($to,$dat,$time,$id); } $sth->finish();
        
        +6 replies
        
        leo11
        
        2009-09-02 21:22
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        2009-09-02T19:14:09 topeg
        Das sollte nicht passieren. Bist du sicher, dass die " ' " nicht schon vorher in der Variable waren?
        
        Habt das geprüft. Sie waren vorher drin. Nun geht alles.
        
        Vielen Dank!
        
        +5 replies
        
        pq
        
        2009-09-02 21:24
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        sagte ich doch.
        hast du mein Dumper-statement ausprobiert?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        leo11
        
        2009-09-02 21:29
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        2009-09-02T19:24:47 pq
        sagte ich doch.
        hast du mein Dumper-statement ausprobiert?
        
        Bei Eingabe von
        $: a'b
        gibt es folgendes aus.
        $VAR1 = "a'b";
        
        +3 replies
        
        pq
        
        2009-09-02 21:30
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        da sehe ich aber keine singlequotes aussen. dann müssen die woanders reingekommen sein.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        leo11
        
        2009-09-02 21:32
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        2009-09-02T19:30:52 pq
        da sehe ich aber keine singlequotes aussen. dann müssen die woanders reingekommen sein.
        
        Ja, sie waren vorher reingekommen. Ich habe sie bereits entfernt gehabt. Möchtest du die Ausgabe im Fehlerfall haben?
        
        pq
        
        2009-09-02 21:51
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        nein danke. das war für dich als genereller debugging-tip gedacht. ich dachte, ich frage lieber nochmal nach, als ich keine rückmeldung bekam.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- GwenDragon
  
  2009-09-02 20:07
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  1) Befehle in SQL in eine Textdatei schreiben und die dann zeilenweise einlesen und ausführen.
  ODer warum die Kaommandozeile? Shellskript? Oder wie?
  
  2) Module DBI mit DBD::mysql o. ä. verwenden
  
  Welche Datenbank ist es denn?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- topeg
  
  2009-09-02 20:38
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Wenn du das einfügen so machst:
  
  Code (perl): (dl )
  
  1 2
  
  $st=$dbi->prepare(q{INSERT INTO X ("W1", "W2") VALUES (?,?)}); $st->execute($wert1,$wert2);
  
  Sollte es zu keinen Problemen kommen.
  
  Wenn du das Einfügen aber so machst:
  
  Code (perl): (dl )
  
  $dbi->do(qq{INSERT INTO X ("W1","W2") VALUES ($wert1,$wert2)});
  
  bekommst Probleme mit dem Quoten.
  DBI bietet zwar eine Funktion, des Entwerten von Geschützten Zeichen aber die ist nicht immer zuverlässig.
  
  Das Problem ist grundsätzlich, dass der String wie er ist zur DB gesendet wird als ganzes interpretiert wird und die Perl-Variablen schon ersetzt worden sind.
  Stehen aber "?" als Platzhalter darin weiß die DB, dass nach dem "prepare" Daten mittels "execute" nachgeschoben werden und braucht sie nicht aus den SQL-String heraus schneiden, oder sonst wie zu interpretieren.

View all threads created 2009-09-02 20:02.