problème de codepage probablement, mais. . .

Bonjour,

Je désire décomposer un chaine de caractère en lettre, et ce code marchait il y a quelques mois, et sans doute que j'ai du faire un update quelconque (debian/squeeze) qui fait qu'il ne fonctionne plus. J'imagine que c'est un problème de code page, mais je comprend pas.

Code:

---

1 2 3 4 5 6

#!/usr/bin/perl $word_tmp="aë"; while (length($word_tmp) > 0) { $word_tmp =~ s/(.)//; # cherche un caractère, le supprime print "dollar 1 $1\n" # et l'affiche }

---

C'est pas la meilleure façon d'extraire des caractères, mais j'ai du simplifier un code plus compliqué pour remarquer qu'il me donne

Code:

---

1 2 3

dollar 1 a dollar 1 dollar 1 ? # plus exactement un ? blanc dans un losange noir mais ce caractère ne passe pas sur le forum

---

au lieu de

Code:

---

1 2	dollar 1 a dollar 1 ë

---

Une idée ?

Bien le merci.

Hum je sais pas trop en regardant ton code mais tu peux faire ça :

Code:

---

1 2 3 4 5

my $word_tmp = "plop"; my @word_tmp = split(//, $word_tmp); #Il me semble qu'en PERL il se fait comme ça, sinon remplace // par ""   foreach (@word_tmp){ print $_; }

---

Comme ça tu affiche tout les caractères un à un.

Oui, c'est un problème d'encodage. Tu n'as pas indiqué à ton script quel encodage tu utilises. Or par défaut perl travaille en ASCII; donc le point ne peut pas reconnaître le caractère 'ë', qui est apparemment encodé sur deux octets, que perl prend pour des caractères séparés.

Quantactique a raison de dire que split // est une meilleure solution que ta façon de procéder, mais ça ne change rien à ton problème d'encodage, et la façon qu'il propose d'afficher le résultat met tout sur une seule ligne sans séparation, ce qui ne sert à rien.

Quelle version de perl utilises tu ? Il y a eu des changements substantiels dans la gestion des encodages dans les dernières versions.