UCS-2 LE Datei einlesen und konvertieren (Allgemeines zu Perl)

[thread]20130[/thread]

UCS-2 LE Datei einlesen und konvertieren

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
Kean

2016-08-01 14:31
User since
2004-08-18
463 Artikel
BenutzerIn
Hallo Zusammen,

ich habe eine Datei welche laut Notepad++ die Codierung UCS-2 Little Endian hat.
Diese Datei lese ich mit Perl ein, will den Inhalt in UTF8 konvertieren und dann wieder in eine Ausgabedatei schreiben.

Dazu gehe ich wie folgt vor:
Code (perl): (dl )

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

use strict; use warnings; use utf8; use Encode; open (FILE, "<test.csv"); my @FileOriginal = <FILE>; close (FILE); open (FILE, ">test2.csv"); foreach (@FileOriginal) { my $ucs2 = encode("UCS-2LE", $_); my $utf8 = decode("UTF8", $ucs2); print FILE $utf8."\n"; } close (FILE);
Dabei kommt aber folgende Fehlermeldung:
Code: (dl )

Wide character in print
Was mache ich falsch?
Last edited: 2016-08-01 15:23:09 +0200 (CEST)
- Gast janus
  
  2016-08-01 14:43
  
  print() will keine Zeichen sondern bytes in ein Handle schreiben. Also schalte von Zeichenorientierung auf bytesemantic. Ein use bytes; vor der print()-Ausgabe sollte es bereits tun.
  
  IO ist grundsätzlich bytesemantic.
  Last edited: 2016-08-01 15:40:26 +0200 (CEST)
- +2 replies
- Linuxer
  
  2016-08-01 15:18
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Woher stammen die benutzten Funktionen encode() und decode() ?
  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!
  - Kean
    
    2016-08-01 15:22
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Oh sorry, hab ich vergessen zu kopieren. Die stammen von dem Module Encode.
- +2 replies
- renee
  
  2016-08-01 15:49
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  schonmal
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use strict; use warnings; open my $in, "<:encoding(UCS-2LE)", "test.csv" or die $!; open my $out, ">:encoding(UTF-8)", "test2.csv" or die $!; while ( my $line = <$in> ) { print $out $line; }
  
  probiert?
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - Kean
    
    2016-08-01 16:23
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Super das funktioniert. Danke!
- Raubtier
  
  2016-08-01 16:01
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  Du verwechselst encode und decode.
  
  Du hast Daten in UCS-2LE -> diese musst du decoden ins Perl-eigene Format. Wobei du aber aufpassen musst, weil du beim zeilenweisen Lesen die Daten schon ggf. kaputt machst. D.h. du müsstest alles auf einmal einlesen (es ergibt eh keinen Sinn, alles in ein Array zu lesen - wenn zeilenweise, dann auch zeilenweise verarbeiten).
  
  Dann vor dem Rausschreiben musst du sie in eine Kodierung encoden (hier in UTF-8).
  
  Wobei renees Tip, die Dateien gleich entsprechend zu öffnen, natürlich schöner ist. Ansonsten abermals der Lesetipp: https://perlgeek.de/de/artikel/charsets-unicode
  Last edited: 2016-08-01 16:07:04 +0200 (CEST)

View all threads created 2016-08-01 14:31.