FTP upload mit utf-8 Kodierung (gelöst) (Allgemeines zu Perl)

[thread]20445[/thread]

FTP upload mit utf-8 Kodierung [gelöst]

Tags: perl5 Net::FTP utf-8 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+8 replies
hago

2018-04-04 16:23
User since
2016-05-29
31 Artikel
BenutzerIn
Hallo,
ich habe ein Script, mit dem ich seit geraumer Zeit CSV-Dateien hochlade.
Das funktioniert perfekt.
Jetzt versuche ich, die Dateien vor dem Upload utf-8 zu kodieren.
Das klappt nicht.
Hier das Script:
Code: (dl )

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

#!C:\perl\perl\bin -w use Net::FTP; use Encode qw/encode decode/; use utf8; if ($ftp=Net::FTP->new('xxx.de')) { if ($ftp->login('xx','xx')or die("Login hat nicht geklappt")) { $ftp -> binary(); $ftp->cwd('test/listen'); my $datei = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G.csv'; open my $fh,"<:utf8", $datei or die("Mist 1"); $ftp->put($fh, $datei); close $fh; $ftp->quit(); } } print "Alles perfekt"; exit;
Das Hochladen klappt nach wie vor, aber die Datei behält ihre alte Kodierung.
Kann mir da vielleicht jemand helfen?

Gruß, Hago
- +7 replies
- rosti
  
  2018-04-04 19:11
  
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  
  FTP ist für die Kodierung nicht zuständig. Und auch nicht für die Konvertierung der Zeilenendezeichen wie das immer noch und oft zu lesen ist. Man kann in FTP höchstens dem Server mitteilen das zu tun, aber das nur nebenbei.
  
  Zu Deinen Dateien und unabhängig von FTP: Sind die Texte so kodiert wie sie es sollen?
  
  Wenn nicht, öffne sie im binmode und erzeuge mit $characters = decode('Deine Kodierung', $octets, Encode::FB_CROAK); zunächst Zeichenketten ($string). Dann kodiere die Zeichenketten um mit $octets = encode("Wunschkodierung", $string); oder nutze die Encode::from_to() Funktion.
  
  Zurück in die Datei gehen Oktetten und FTP machst Du bitte auch nur mit Oktetten. FTP dann im binmode.
  
  Viel Erfolg.
  
  MfG
  Last edited: 2018-04-04 19:39:29 +0200 (CEST)
  - +6 replies
  - hago
    
    2018-04-04 23:58
    
    User since
    2016-05-29
    31 Artikel
    BenutzerIn
    
    2018-04-04T17:11:53 rosti
    Sind die Texte so kodiert wie sie es sollen?
    
    Sie sind laut meinem Textverarbeitungsprogramm ISO 8859-2 kodiert. Ob sie das sollen, weiß ich nicht.
    
    Den Rest habe ich schlicht nicht verstanden...
    Was sind denn die Oktetten?
    
    Gibt es da nicht irgendwo eine klarere Anleitung?
    - +5 replies
    - rosti
      
      2018-04-05 06:56
      
      User since
      2011-03-19
      3470 Artikel
      BenutzerIn
      
      Oktetten sind Bytes: Die kleinste pyhsikalische Speichereinheit in Dateien, Sockets usw. 1 Byte hat 8 Bit, deswegen auch Oktette genannt. Eine Oktette ist nichts weiter als ein primitiver Datentype 8 Bit unsigned Integer mit einer möglichen Wertigkeit von 0..255
      
      Mehr dazu: http://rolfrost.de/typisierung.html
      
      Perl unterscheidet seit v5.6.1 zwischen Oktetten und Zeichenketten. Deswegen gibt es Encode.pm
      
      Wenn Du
      
      Code (perl): (dl )
      
      open my $fh,"<:utf8", $datei or die("Mist 1");
      
      notierst, macht der Layer aus den Oktetten UTF-8-kodierte Zeichenketten. Was bei Deinen Dateien schonmal falsch ist weil sie gar nicht utf-8-kodiert sind.
      
      Unabhängig von Deinem Verständnis sollte die Lösung mit Encode jedoch funktionieren. Siehe auch perldoc Encode.
      
      MfG
      - +4 replies
      - hago
        
        2018-04-05 07:22
        
        User since
        2016-05-29
        31 Artikel
        BenutzerIn
        
        Danke für die verständliche Erklärung.
        
        Ich habe inzwischen was gefunden, auf meine Situation angewendet und es klappt perfekt.
        
        Die entscheidende Information von dir war, dass die Kodierung nichts mit ftp zu tun hat. ich dachte, Net::FTP kann das auch.
        So sieht es jetzt aus:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        use Encode qw/encode decode/; my $datei = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G1.csv'; my $temp = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G.csv'; open(my $alt,'<:encoding(iso-8859-2)',$datei) or die("Mist 1"); open(my $neu,'>:encoding(UTF-8)',$temp) or die("Mist 2"); while (<$alt>) { print $neu $_; }
        
        Der ganze ftp-Teil kommt erst anschließend.
        Ich bin zufrieden damit.
        Wenn ich die selbe Datei zum Lesen und Schreiben benützen könnte, fände ich es noch besser.
        
        +3 replies
        
        rosti
        
        2018-04-05 07:49
        
        User since
        2011-03-19
        3470 Artikel
        BenutzerIn
        
        Sehr schön freut mich!!!
        
        Code (perl): (dl )
        
        1 2
        
        open(my $alt,'<:encoding(iso-8859-2)',$datei) or die("Mist 1"); open(my $neu,'>:encoding(UTF-8)',$temp) or die("Mist 2");
        
        Ja, so geht es auch. Also ohne Encode.pm einzubinden.
        
        Quote
        Wenn ich die selbe Datei zum Lesen und Schreiben benützen könnte, fände ich es noch besser.
        
        Kein Problem aber da brauchst Du wieder Encode::encode() und decode(); Und IO::File:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        use strict; use warnings; use Encode qw(encode decode); use IO::File; my $fh = IO::File->new; $fh->open('datei', O_RDWR|O_BINARY) or die $!; read($fh, my $octets, -s $fh); # oktetten zu strings, decode, encode my $binary = encode('UTF-8', decode('ISO-8859-2', $octets) ); $fh->seek(0,0); $fh->truncate(0); $fh->print($binary); # und hier könnte man $fh an FTP übergeben
        
        .
        Last edited: 2018-04-05 08:13:03 +0200 (CEST)
        
        +2 replies
        
        hago
        
        2018-04-05 10:50
        
        User since
        2016-05-29
        31 Artikel
        BenutzerIn
        
        Danke für die Hilfe.
        
        Ich werde doch für die Temp-Dateien ein eigenes Temp-Verzeichnis einrichten, dann habe ich auch keine Schwierigkeiten mehr mit den Dateinamen und alles bleibt ganz einfach.
        
        Gruß, Hago
        
        Linuxer
        
        2018-04-05 14:27
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        wenn das Thema für Dich erledigt ist, dann könntest Du bitte oben in der Beitragsfolge beim Titel diese als gelöst markieren.
        
        Vielen Dank.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2018-04-04 16:23.