Discussion :

[danyII]

Bonjour à tous,

Je suis un nouveau membre depuis ce jour et je trouve ce site génial.

Certains vont dire que je voudrais courir avant d'apprendre à marcher, mais bon... voici mon problème, j'ai constaté qu' en voulant connaître la longueur d'une chaine de caractères, "length($str)" la réponse varie en fonction de la présence de caractères accentués ou non. Il semble que perl interprète un "é" comme deux caractères. Comment puis-je trouver l'astuce pour que cette fonction me donne le nombre correct?
Excusez-moi la réponse se trouve probablement dans une de vos documentations ou dans un de vos forums mais je dois avouer que votre site regorge trop d'informations pour être lues en un jour. Je me débrouille pas encore très biens avec vos moteurs de recherches, avec vos tutoriels, facs et autres.
merci d'avance et à +

[Jedai]

C'est un peu plus compliqué que ça. length te donne toujours la longueur exacte de la chaîne, mais quelle chaîne ?
Est-ce qu'une string est une liste d'octet, ou une liste de caractères, et s'il s'agit de caractères, dans quel encodage ?
Tout était plus simple quand les encodages étaient en 8 bits, mais de nos jour, l'unicode envahi le monde, et pire l'utf-8 envahi le monde. Or en UTF-8 tous les caractères n'ont pas la même longueur, entre autres les caractères accentués français prennent deux octets. Si tu veux que length te donne le nombre de caractères de ta chaîne il faut donc déjà que Perl sache qu'elle est encodée en utf-8. Selon l'origine de ta chaîne, cela va se faire de différentes façon. Par exemple si ton script lui-même est écrit en utf-8 et que ta chaîne est une constante (ou une concaténation de constantes), il faut que tu mettes "use utf8;" au début de ton script pour que Perl sache que ton script est en utf8 (tu pourras même utiliser des caractères unicode dans tes identifieurs dans ce cas). Si la chaîne vient d'un fichier en utf8, il faut l'indiquer à l'ouverture du fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
open my($file), '<:utf8', $filename
  or die "Can't open $filename : $!\n";

--
Jedaï

[danyII]

Merci Jedai,
en utilisant "use utf8;" en début de mon script, cela fonctionne. Perl calcule le nombre de caractères corrects. Cela me permet d'aligner à droite certains de mes données dans mon fichier .txt de sortie. En revanche (mais ceci est peut-être hors sujet), les accents utilisés dans mes messages envoyés à mon terminal print"messages"; sont remplacés par d'horribles caractères. Je me suis rendu dans l'onglet "profil" de mon terminal linux et je n'ai rien vu pour modifier cette erreur.

[danyII]

In fine, j'ai utilisé "ISO 8859 15" et cela fonctionne....

Merci

[Jedai]

Merci Jedai,
en utilisant "use utf8;" en début de mon script, cela fonctionne. Perl calcule le nombre de caractères corrects. Cela me permet d'aligner à droite certains de mes données dans mon fichier .txt de sortie. En revanche (mais ceci est peut-être hors sujet), les accents utilisés dans mes messages envoyés à mon terminal print"messages"; sont remplacés par d'horribles caractères. Je me suis rendu dans l'onglet "profil" de mon terminal linux et je n'ai rien vu pour modifier cette erreur.

C'est probablement parce que ton terminal est en utf8 mais que Perl ne le sait pas, il faut lui dire avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

binmode STDOUT, ':utf8';

(ou utiliser le pragma 'open', c'est probablement plus propre)

Avant ça marchait parce que Perl ne savait pas que ton terminal était en utf8 mais il ne savait pas non plus que ta string était en utf8, il la recopiait donc octet par octet vers la sortie, et comme ta string était en fait en utf8, ça sortait le bon truc. Mais à partir du moment où il sait que ta string est en utf8 et qu'il croit que le terminal est en ISO-8859-15, il essaie de traduire et ça fait un grand n'importe quoi...
(y a aussi la possibilité que ton terminal soit vraiment en ISO-8859-15 mais que Perl croit qu'il est dans un autre encodage 8 bit ou peut-être que ...)

Les problèmes d'encodage c'est l'enfer sur terre à mon avis.

--
Jedaï

[danyII]

Super cela fonctionne en utf8

Merci à toi Ô maître