Bonjour;
Je dois faire un script qui traite un fichier UCS2 précisément du UTF-16LE.
Ma première ligne avant OPEN est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
use open IO  => ":encoding(UTF-16LE)";
Apres le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
WHILE (my $line = <DATA>){
je fais un
Code : Sélectionner tout - Visualiser dans une fenêtre à part
chomp $line;
qui doit me virer le séparateur de ligne en l'occurrence $/="\r\n". mais le chomp ne marche pas. Ensuite je dois pourvoir écrire le résultat de mon traitement dans un autre fichier que je crée. Naturellement il doit être en UTF-16LE. Mais pas de bol. ça ne marche pas comme je le souhaite. Mon fichier est reconnu par notepad++ comme un Macintosh au lieu de Windows et l'encode est du UTF-8. Pour l'encodage je crois que c'est normal puisque Perl traite bien le UTF-16LE mais le rend (à la sortie) en UTF-8.Si je dis une bêtise corrigé moi.
Si vous pouvez m'aider ....