Perl Datenmigration zwischen 2 Datenbanken (Datenbanken und Verzeichnisdienste)

[thread]15271[/thread]

Perl Datenmigration zwischen 2 Datenbanken

Leser: 25

Articles: hide open all | hide show old branches

+10 replies
mbawoko

2010-07-13 11:34
User since
2010-07-13
3 Artikel
BenutzerIn
Hallo Zusammen,
erst seit einer Woche habe ich die erste erfahrung mit perl gemacht. Ich wollte ein kleines Programm shreiben, was dann die daten aus einer Source-Datenbank lese und in einer anderen (ziel Datenbank) kopiere. Die beiden datenbank haben die selbe struktur (tabelle und felder)

Source Datenbank:
Tabelle: Personnen
Code: (dl )

1 2 3 4 5 6 7 8 9 10

============================================== PersonID | Name | Vorname | Globalvalue ============================================== 1234 | Schnidt | Michael | 9836 ---------------------------------------------- 8734 | Nink | Joachim | Null --------------------------------------------- 7453 | reimer | Martin | ---------------------------------------------- 5499 | Wolf | Ronny | Null
Die Die Migration erfolgt nur wenn im Feld GlobalValue keine Nummer steht (d.h wenn das Feld leer ist oder wenn null dort steht: datensatz 2 bis 4)

ich möchte nur wissen wie ich die obere datenkank Tabelle lesen kann und in einer anderen (ziel) die daten Schreiben kann. Beim Migrieren, muss man achten, dass nur die Daten dessen Feld Golbalvalue belegt ist für die Migration relevant sind.

für jede hilfe bin ich sehr dankbar. Eine odbc vercindung zu der beiden Datenbank habe ich schon gebaut

mod-edit pq: code-tags hinzugefügt
Last edited: 2010-07-13 11:37:29 +0200 (CEST)
- pq
  
  2010-07-13 11:44
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Move from Allgemeines zu Perl to Datenbanken und Verzeichnisdienste
  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
- +8 replies
- moritz
  
  2010-07-13 13:26
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Du machst ein SELECT auf der Quellendatenbank, das dir die Zeilen liefert, die du migrieren willst, iterierst ueber die Ergebniszeile und fuegst sie mit INSERT in die Zieldatenbank ein.
  Perl 6 - Perls Zukunft
  - +7 replies
  - mbawoko
    
    2010-07-13 16:42
    
    User since
    2010-07-13
    3 Artikel
    BenutzerIn
    
    Hallo Moritz genauso habe ich mir gedacht, aber mein SQL statement wird nicht ausgeführt:
    
    select * from Personen where Globalvalue IS NULL OR Globalvalue like ''
    
    genau wird dieser Skript nicht ausgeführt. Vielleich kennt perl die Zeichen '' nicht. ich bin erst seit 5 Tagen mit perl beschäftigthaben Sie eine idee warum dieses sql Statement in perl eingebunden nicht funktionniert? Danke für alle antworten
    - +2 replies
    - Gast jazal
      
      2010-07-13 23:25
      
      Hi,
      
      was heißt "wird nicht ausgeführt"?
      Wird das Skript ohne Fehler ausgeführt und es passiert nicht das gewünschte?
      Wird eine Fehlermeldung generiert? Wenn ja, wie lautet diese?
      Wenn man den Code sehen könnte, mit dem das versucht wird, könnte man vielleicht auch konkretere Vermutungen anstellen, wo der Fehler begraben sein könnte.
      Last edited: 2010-07-13 23:38:40 +0200 (CEST)
      - moritz
        
        2010-07-14 12:31
        
        User since
        2007-05-11
        923 Artikel
        HausmeisterIn
        
        Noch ein kleiner Tipp: Bei DBI->connect die RaiseError-Option auf 1 setzen, das macht es wesentlich leichter, Fehler zu finden. Siehe DBI.
        Last edited: 2010-07-14 12:32:47 +0200 (CEST)
        Perl 6 - Perls Zukunft
    - roli
      
      2010-07-14 12:50
      
      User since
      2004-12-31
      424 Artikel
      BenutzerIn
      
      Hi,
      
      2010-07-13T14:42:09 mbawoko
      select * from Personen where Globalvalue IS NULL OR Globalvalue like ''
      
      genau wird dieser Skript nicht ausgeführt. Vielleich kennt perl die Zeichen '' nicht. ich bin erst seit 5 Tagen mit perl beschäftigthaben Sie eine idee warum dieses sql Statement in perl eingebunden nicht funktionniert? Danke für alle antworten
      
      wenn ich mir bei sowas nich sicher bin, versuche ich soviele fehlerquellen wie möglich auszuschalten, sprich ich würde die Querry "einfach mal so" in einer DB-Konsole abschicken, und sehen was passiert. Damit währen dann evtl. vorhandene Fehler im Perl Script schon mal außen vor.
      Roland
      --
      "Steh vorn, während du fragst;
      sitzen soll, wer antwortet."
      Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - +2 replies
    - pktm
      
      2010-07-14 21:40
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Mach aus den einfachen Quotes mal Doppelquotes.
      Was willst du denn auslesen? Leere Datensätze? Dann kannst du auch den Vergleich nehmen, dürfte schneller sein: WHERE spalte = ""
      http://www.intergastro-service.de (mein erstes CMS :) )
      - payx
        
        2010-07-15 12:56
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        In SQL sind schon Singlequotes richtig. LIKE ist nur sinnvoll, wenn Wildcards verwendet werden. Je nach RDBMS muss zwischen wirklich null (also ganz leer) und '' (leerer String) unterschieden werden.
    - payx
      
      2010-07-15 13:04
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo mbawoko,
      
      Dein SQL als solches sollte schon Treffer liefern, wenn die Tabelle wirklich Personen heißt und nicht Personnen wie in Deinem ersten Posting.
      
      Dein Vorhaben eines einfachen ETL ist prinzipiell mit Perl sehr gut lösbar, Du bist also auf dem richtigen Weg.
      
      Aber weiterführende Aussagen kann niemand machen, solange Du nicht erzählst, was für ein RDBMS Du verwendest, und wie Dein Code lautet.
      
      Grüße
      payx

View all threads created 2010-07-13 11:34.