Tk, utf8 et windows

Voici un script exemple qui a pour but de créer un répertoire C:/âme quand on clique sur le bouton.
Il y a des accents dans le nom du répertoire et sur la fenêtre Tk.
On remarquera que les accents s'affichent bizarrement.
Le script est au format utf8.

âme = âme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

#!/usr/bin/perl use warnings; use strict; use Tk; # Appel du module Tk     # Programme principal # Création de la fenêtre my $fenetre = new MainWindow( -title => "Première fenêtre Tk ", -background => "white", );   # Taille minimale de ma fenêtre $fenetre->minsize(300,100);   my $MessageAccueil = "TéTé âme\n\n"; # Affichage d'un texte my $LabelAccueil = $fenetre->Label( -text => $MessageAccueil, -background => "white", )->pack();   # Affichage d'un bouton pour fermer la fenêtre my $bouton = $fenetre -> Button ( -text => "Créer répertoire (C:/âme)", -command => sub { mkdir("C:/âme"); }, )->pack();   MainLoop(); # Obligatoire

---

Si je lance ce script et clique sur le bouton, il me crée un répertoire C:/âme, mais moi je veux âme.

je rajoute donc

Code:

---

use utf8;

---

dans le script.
Du coup, dans ma fenêtre TK, tous les accents sont correct;
Mais j'ai toujours un répertoire C:/âme qui se crée

j'essaye d'utiliser le module encode et je modifie donc

Code:

---

mkdir("C:/âme");

---

par

Code:

---

mkdir( encode("latin1", decode( "utf8", "C:/âme" ) ) ) or die("C:/âme $!");

---

mais ça ne fonctionne toujours pas, il ne crée plus rien vu qu'en sorti dans les caractères bizarre remplaçant â, il y a une parenthèse.

comment faire pour utiliser use utf8; et ensuite reconvertir un string en latin1 afin de créer un répertoire C:/âme par exemple proprement.

Merci

il faut utiliser l'encode iso

Code:

---

mkdir( encode("iso-8859-1", "C:/âme") );

---

et tout est Ok en gardant use utf8;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

#!/usr/bin/perl use warnings; use strict; use Tk; # Appel du module Tk use utf8; use Encode;   # Programme principal # Création de la fenêtre my $fenetre = new MainWindow( -title => "Première fenêtre Tk ", -background => "white", );   # Taille minimale de ma fenêtre $fenetre->minsize(300,100);   my $MessageAccueil = "TéTé âme\n\n"; # Affichage d'un texte my $LabelAccueil = $fenetre->Label( -text => $MessageAccueil, -background => "white", )->pack();   # Affichage d'un bouton pour fermer la fenêtre my $bouton = $fenetre -> Button ( -text => "Créer répertoire (C:/âme)", -command => sub { mkdir( encode( "iso-8859-1", "C:/âme" ) ); }, )->pack();   MainLoop(); # Obligatoire

---