Discussion :

[bisnow]

Salut à tous !

Je suis débutant en PERL et m’intéresse aux fenêtres. Le code proposé en exemple fonctionne bien, juste une différence de couleur (gris au lieu de bleu pour les contours) ce la doit être un paramètre par défaut. Cependant je n'arrive pas a afficher les caractères avec accent. Je sais que PERL n'aime pas trop beaucoup ça. Avez vous une idée d’où peut venir le problème ?

[djibril]

Comment est encodé ton fichier contenant ton programme.

[bisnow]

Enfait j ai trouvé la solution mais j'ai du mal a comprendre pourquoi. J'avais simplement fait un copier coller de code dans fichier texte. J'ai rajouté la ligne de commande suivante :

use utf8;


Les caractères avec accents s'affiche maintenant correctement. Mais je ne comprend pas pourquoi dans ton exemple tu n'en as pas besoin ?

[djibril]

Ton programme doit être encodé en UTF-8 et ensuite tu dis à Perl que le code est en utf-8 via

Code :

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

use utf8;

[bisnow]

Mon programme n'est donc pas codé en utf8 par défaut ?

[6ril23]

Non en Perl c'est l'Unicode qui est par défaut il me semble

[dmganges]

Bonjour,

Mon programme n'est donc pas codé en utf8 par défaut ?

En fait c'est l'éditeur de texte que tu utilises qui encode !

Donc tu fais une sauvegarde SOUS de ton pgm.pl
Et tu choisis l'option qui va bien, par exemple :
Bloc notes tu as : ANSI, Unicode, Unicode big endian, UTF-8
Ultraedit tu as : voir image
KWrite une palanquée...
...

en mettant :

Code :

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

use utf8;

dans ton code, tu indiques, entre autre, à Perl que les libellés du genre :

Code :

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

my $toto = "évènements";

sont à interpréter en UTF-8.

Au début j'ai pas mal galéré avec les encodages en arabe.
J'utilise systématiquement use UTF8 de même que pour les lectures/écritures de fichier j'encode :

Code :

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

1
2
3
4
 
open IN_Fic, '<:utf8', $fichier;
...
open OUT_Fic, '>:utf8', $fichier;

Je n'ai plus de pb

[bisnow]

Merci pour l'explication je comprend comment ça fonctionne !!

Et aussi merci pour les cours et tutoriels Perl pour apprendre la programmation c’est parfait : http://perl.developpez.com/cours/