UTF-16
UTF-16BE
UTF-16LE
UTF-32
UTF-32BE
UTF-32LE
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Necesito guardar un fichero que modifiqué con codificación unicode, pero cuando lo hago, queda almacenado con codificación ansi. Con el mismo código, guardé el archivo con codificación utf8 y ésta sí me la respetó.
Podrían decirme qué es lo que está pasando y cómo puedo guardar el archivo con una codificación unicode.
Using perl Syntax Highlighting
use Encode qw(from_to);
# me guarda unicode.txt con codificación ansi
open my $FILE, '<', 'D:\ansi.txt';
open my $COPIA, '>', 'D:\unicode' or die "ERROR: $!\n";
read $FILE, my $buffer, -s 'D:\ansi.txt';
from_to($buffer,'cp1252','ucs-2le');
print $COPIA $buffer;
close $FILE;
close $COPIA;
# me guarda unicode.txt con codificación utf8
open my $FILE, '<', 'D:\ansi.txt';
open my $COPIA, '>', 'D:\unicode' or die "ERROR: $!\n";
read $FILE, my $buffer, -s 'D:\ansi.txt';
from_to($buffer,'cp1252','utf8');
print $COPIA $buffer;
close $FILE;
close $COPIA;
# me guarda unicode.txt con codificación ansi
open my $FILE, '<', 'D:\ansi.txt';
open my $COPIA, '>', 'D:\unicode' or die "ERROR: $!\n";
read $FILE, my $buffer, -s 'D:\ansi.txt';
from_to($buffer,'cp1252','ucs-2le');
print $COPIA $buffer;
close $FILE;
close $COPIA;
# me guarda unicode.txt con codificación utf8
open my $FILE, '<', 'D:\ansi.txt';
open my $COPIA, '>', 'D:\unicode' or die "ERROR: $!\n";
read $FILE, my $buffer, -s 'D:\ansi.txt';
from_to($buffer,'cp1252','utf8');
print $COPIA $buffer;
close $FILE;
close $COPIA;
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Gracias, tal vez sea algo muy sencillo pero me ha costado trabajo y espero que puedan ayudarme.
