Discussion :

[djibril]

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 :

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

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 :

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

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 :

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

mkdir("C:/âme");

par

Code :

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

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

[djibril]

il faut utiliser l'encode iso

Code :

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

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

et tout est Ok en gardant use utf8;

Code :

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

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