Leser: 19
1
2
3
4
5
6
7
open(INF,"<:encoding(utf-8)",$infile);
open(OUTF, ">:encoding(iso-8859-1)", $outfile);
while(my $line = <INF>){
# do something with $line
}
close(INF);
close(OUTF);
Quote"\x{2000}" does not map to iso-8859-1, <INF> line 18981.
panic: sv_setpvn called with negative strlen, <INF> line 18981.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
while (<DATA>) { # FB_DEFAULT wandelt in ? um from_to($_, "utf-8","iso-8859-1",Encode::FB_DEFAULT); # FB_CROAK stirbt bei falschen Zeichen #from_to($_, "utf-8","iso-8859-1",,Encode::FB_CROAK); # FB_WARN warnt bei falschen Zeichen #from_to($_, "utf-8","iso-8859-1",Encode::FB_WARN); print; } __DATA__ Ώ € ÄÖÜß ב