Thread FTP upload mit utf-8 Kodierung (7 answers)
Opened by hago at 2018-04-04 16:23

rosti
 2018-04-05 07:49
#188230 #188230
User since
2011-03-19
3471 Artikel
BenutzerIn
[Homepage]
user image
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)

View full thread FTP upload mit utf-8 Kodierung