Mysql Datenbanksicherung mit MySQL::Backup nicht in UTF8 (gelöst) (Datenbanken und Verzeichnisdienste)

[thread]18846[/thread]

Mysql Datenbanksicherung mit MySQL::Backup nicht in UTF8 [gelöst]

Tags: perl5 DBI MySQL Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+7 replies
Kean

2014-01-15 11:54
User since
2004-08-18
463 Artikel
BenutzerIn
Ich nutze seit ein paar Jahren das Modul MySQL::Backup (heisst lokal DBD::Backup) um MySQL Datenbanken zu sichern.

Dabei verwende ich zum Beispiel folgenden Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

use DBI; use DBD::Backup; my $dsn = "DBI:mysql:database=$datenbank;host=$db_host;port=$db_port"; my $dbh = DBI::->connect( $dsn, $db_user, $db_pw, { RaiseError => 1, PrintError => 0, AutoCommit => 1, mysql_enable_utf8 => 1 } ); my $mb = new_from_DBH DBD::Backup($dbh,{'USE_REPLACE' => 1, 'SHOW_TABLE_NAMES' => 1}); open (AUSGABE, ">sicherung.sql"); print AUSGABE "DROP TABLE IF EXISTS `Test`;\n"; print AUSGABE $mb->table_desc('Test'); print AUSGABE $mb->table_data('Test'); print AUSGABE "DROP TABLE IF EXISTS `Test2`;\n"; print AUSGABE $mb->table_desc('Test2'); print AUSGABE $mb->table_data('Test2'); close (AUSGABE);
In diesem Beispiel sichere ich die beiden Tabellen "Test" und "Test2" in eine Sicherungsdatei. Das ganze mache ich gewöhnlich mit 2-10 Tabellen.

Seit ein paar Wochen habe ich aber Probleme die so erstellten Sicherungen zurück zu spielen. Bei einigen Tabellen werden Umlaute falsch importiert und bei anderen nicht.

Ich habe als Test mal alle Tabellen einzeln in getrennte Dateien exportiert und dabei ist mir aufgedallen, dass einige Tabellen im Format "ANSI" und andere im Format "UTF8 ohne BOM" gespeichert werden. Die Sicherungen im UTF8 Format kann ich ohne Probleme zurückspielen aber die im ANSI Format nicht, da hier die Umlaute zerstört werden.

Wenn ich mehrere Tabellen in einer Datei sichere, ist die ganze Datei im Format ANSI. Bei den Tabellen, welche einzeln in ANSI raus kommen, sind die Umlaute normal und bei den Tabellen welche einzeln als UTF8 gesichert werden, sind die Umlaute zerstört.

Da alle Tabellen den gleichen Aufbau haben und die gleiche Standart Kollation (utf8_general_ci) frage ich mich wieso manche der Tabellen im ANSI Format gesichert werden und andere in utf8.

Hat vielleicht jemand eine Idee an was das liegen könnte??

Wenn ich eine Sicherung z.b. mit dem Programm HeidiSQL mache, kommt alles in UTF8....

modedit Editiert von GwenDragon: Titel ergänzt
Last edited: 2014-01-15 13:53:16 +0100 (CET)
- +6 replies
- GwenDragon
  
  2014-01-15 13:22
  
  User since
  2005-01-17
  14532 Artikel
  Admin1
  
  Ausgabe an Datei muss wohl als Binärdaten erfolgen sonst kodiert Perl intern.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - Kean
    
    2014-01-15 13:33
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Wie gebe ich die Daten binär aus??
    - +4 replies
    - GwenDragon
      
      2014-01-15 13:35
      
      User since
      2005-01-17
      14532 Artikel
      Admin1
      
      Auf dein Beispiel umgesetzt:
      
      Code (perl): (dl )
      
      1 2
      
      open (AUSGABE, ">sicherung.sql"); binmode AUSGABE;
      
      Wenn es allerdings wirklich sicher sein soll, dass UTF-8 per print ausgegeben wird, solltest du es so versuchen:
      
      Erst die Daten einem Zeichenkettenbuffer zuweisen, dann den mit Encode::decode auf UTF-8 umkodieren und dann erst mit print ausgeben!
      
      Beispiel-Schnippsel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      use Encode qw(decode); open (AUSGABE, ">sicherung.sql"); binmode AUSGABE; my $data; .... $data = $mb->table_desc('Test'); $data = Encode::decode("UTF-8",$data); print AUSGABE $data;
      
      Last edited: 2014-01-15 13:44:12 +0100 (CET)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +3 replies
      - Kean
        
        2014-01-15 14:09
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Wenn ich dies versuche, kommt folgende Fehlermeldung:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        Wide character in print at xyz.pl line 5724. Wide character in print at xyz.pl line 5724. Tk::Error: Cannot decode string with wide characters at C:/Perl/lib/Encode.pm line 174. Encode::decode at C:/Perl/lib/Encode.pm line 174 main::__ANON__ at xyz.pl line 5723 Tk callback for .toplevel.button1 Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 250 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 175 <ButtonRelease-1> (command bound to event)
        
        +2 replies
        
        Kean
        
        2014-01-15 14:40
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Es könnte etwas mit diesem Bug zu tun haben:
        
        https://rt.cpan.org/Public/Bug/Display.html?id=531...
        
        Scheint aber auch noch in keiner neueren Version gefixed zu sein.
        Ich update mal auf 4.023 und teste es erneut.
        
        Kean
        
        2014-01-15 16:06
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Das Update auf die aktuellen Module hat keine Veränderung gebracht.
        
        Ich habe aber einen Weg gefunden:
        
        Code: (dl )
        
        1 2 3 4
        
        open (AUSGABE, ">sicherung.sql"); binmode AUSGABE, ':utf8'; ...
        
        Hiermit formatiert er alles als UTF8 ohne DOM.

View all threads created 2014-01-15 11:54.