Schönheitsfrage bei Load Data mit \n (Allgemeines zu Perl)

[thread]16823[/thread]

Schönheitsfrage bei Load Data mit \n

Tags: perl5 Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+9 replies
andi84

2011-10-17 16:23
User since
2011-01-11
7 articles
BenutzerIn
Hallo PerlCommunity,

ich habe lediglich eine Schönheitsfrage.

Leider konnte ich dazu kein passenden Information im www finden :/

Wir haben eine csv Datei von der ich lediglich zwei Spalten benötige und diese wieder per MySQL LOAD DATA importiere. Im Grunde funktioniert alles wie es soll. Nur wird in der Spalte eBayNr in der MySQL-Tabelle hinter dem Wert ein nettes ❒ (Viereck) angezeigt. Wenn ich dies kopiere und wieder in einem Editor einfüge, verhält es sich wie ein \n .

Aufbereitung für die LOAD DATA
Code: (dl )

1 2 3 4 5 6 7 8 9 10

push(@insert_historyeinstellkosten,"$row_csv[8];$row_csv[1]\n"); ... open(INPUT,'>'.$newdata); foreach(@insert_historyeinstellkosten) { print INPUT $_; } close INPUT;
LOAD DATA
Code: (dl )

1 2 3 4 5 6 7

$table_header = "`AfterbuyNr`,`eBayNr`"; print "| Load Data für ".$mysql_pre." startet\n"; $sql = "LOAD DATA LOCAL INFILE '".$newdata."' INTO TABLE ".$mysql_table." FIELDS TERMINATED BY ';' ENCLOSED BY '\"' LINES TERMINATED BY '\n' (".$table_header.");"; $sth = $dbh->prepare( $sql ); $sth->execute(); print "| Load Data für ".$mysql_pre." beendet\n";
Mein aktueller Trick um dieses nervige ❒ (Viereck) zu umgehen.
Code: (dl )

1 2 3 4

$sql = "update np24_ebay_afterbuy_historyeinstellkosten set eBayNr = eBayNr+'' "; $sth = $dbh->prepare( $sql ); $sth->execute();
Wenn ich die push Zeile umschreibe, dann wird es ganz verrückt. Dann importiert er die "" mit. Und es ist ein ganz anderer Wert in den Zeilen hinterlegt.
Code: (dl )

push(@insert_historyeinstellkosten,"\"$row_csv[8]\";\"$row_csv[1]\"\n");
Beispiel:
Temp Datei für LOAD DATA
"100002";"123456789"
"100003";"123456790"

DB-Tabelle danach
100002;"654689743"
100003;"897346698"

Ich stehe bei dieser Sache irgendwie auf dem Schlauch... und ich finde keine Antwort auf dieses Problem.

Ok ich kann mit meinem Trick leben aber schön ist es nicht.

Gruß Andi
Last edited: 2011-10-17 16:26:32 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2011-10-17 17:08
  User since
  2005-01-17
  14785 articles
  Admin1
  Bist du sicher, dass in der letzten Spalte der CSV-Datei wirklich nur ein \n steht?
  
  Was passiert, wenn du folgendes nimmst:
  
  Code (perl): (dl )
  
  $sql = "LOAD DATA LOCAL INFILE '".$newdata."' INTO TABLE ".$mysql_table." FIELDS TERMINATED BY ';' ENCLOSED BY '\"' LINES TERMINATED BY '\r\n' (".$table_header.");";
  
  Last edited: 2011-10-17 17:33:09 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - andi84
    
    2011-10-17 17:32
    
    User since
    2011-01-11
    7 articles
    BenutzerIn
    
    Jup bin ich.
    - +2 replies
    - GwenDragon
      
      2011-10-17 17:43
      
      User since
      2005-01-17
      14785 articles
      Admin1
      
      Nicht irgendwo in den Zeilenenden der Dateien \x0D\x0A?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - andi84
        
        2011-10-17 17:52
        
        User since
        2011-01-11
        7 articles
        BenutzerIn
        
        ne :(
- +2 replies
- GwenDragon
  
  2011-10-17 17:26
  
  User since
  2005-01-17
  14785 articles
  Admin1
  
  Übrigens, damit du solche Quotingorgien vermeidest, davon mal abgesehen, das Variablen in Perl auch in Zeichenketten stehen drürfen und keine zeiczhenkettenverkettung mit . brauchen, verwende doch bitte für einfaches Quoting (mit ') den Operator q() und bei doppelten (") den qq();
  Siehe auch http://perldoc.perl.org/perlop.html#Quote-Like-Ope...
  
  Es liest sich einfacher. ;)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - andi84
    
    2011-10-17 17:33
    
    User since
    2011-01-11
    7 articles
    BenutzerIn
    
    OK :>
- GwenDragon
  
  2011-10-17 18:49
  
  User since
  2005-01-17
  14785 articles
  Admin1
  
  Schon mal mit einer Zeile einer Testdatei probiert anstatt deiner erzeugten?
  Um sicher zu gehen, dass dein SQL stimmt und der SQL-Server korrekt importiert?
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2011-10-18 14:54
  User since
  2005-01-17
  14785 articles
  Admin1
  Ich habe mit folgendem Testskript mit MySQL 5.1 keine Probleme Daten hinzuzufügen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
  
  #!/usr/bin/perl use strict; use warnings; use DBI; my $table_header = q(`AfterbuyNr`,`eBayNr`); my $mysql_pre = 'test'; my $mysql_table = 'test'; my $newdata = 'test.data'; print qq(| Load Data für $mysql_pre startet\n); my $dbh = DBI->connect("dbi:mysql:test", 'test', 'test'); my ($sth, $sql); $sql = <<'SQL'; CREATE TABLE IF NOT EXISTS `test` ( `id` int(11) DEFAULT 0, `AfterbuyNr` int(11) DEFAULT 0, `eBayNr` int(11) DEFAULT 0 ); SQL $sth = $dbh->prepare( $sql ); $sth->execute(); $sql = <<SQL; LOAD DATA LOCAL INFILE '$newdata' INTO TABLE $mysql_table FIELDS TERMINATED BY ';' ENCLOSED BY '\"' LINES TERMINATED BY '\n' ($table_header); SQL $sth = $dbh->prepare( $sql ); $sth->execute(); print qq(| Load Data für $mysql_pre beendet\n);
  
  mit folgendem Datendatei (Zeilenende \x0A):
  
  Code: (dl )
  
  1 2
  
  "100111";"123456777" "100777";"123456999"
  
  Da sind dann auch keien seltsamen Zeichen drin wie bei dir.
  Last edited: 2011-10-18 14:55:34 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-10-17 16:23.