Interaction shell problème de langue par défaut

Version imprimable

09/01/2015, 11h03
dubis

Interaction shell problème de langue par défaut
Bonjour,

J’utilise le module Expect pour automatiser une interaction avec le prompt shell. Malheureusement, suivant le langue par défaut du système d’exploitation, mon script ne réagis pas pareil.

Comment m'assurer d'avoir les question système en anglais dans mon script pour être sur qu'il fonctionne quelque soit le langage?
Code:

1 2 3 4 5 6 7 8 #!/usr/bin/perl -w use strict ; use Gtk2 '-init' ; use String::MkPasswd qw(mkpasswd); use Expect; use MIME::Lite; use utf8;
Voici la ligne qui bloque :
Code:

1 2 #[ "[nN]ew password" => sub { [ "[nN]ouveau mot de passe" => sub {
J'aimerais que la ligne commentée fonctionne dans n'importe qu'elle cas de figure pour l'instant suivant que l’utilisateur choisi l'anglais ou le français il faut commenté l'une ou l'autre ligne.
Merci de votre aide.

Bonjour,

Et en récupérant la variable d'environnement LANG ou LANGAGE ça ne te convient pas ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 #!/usr/bin/perl -w use strict; sub var_exist { my $varenv='LANG'; if (exists $ENV{$varenv}) { print "\n$varenv = ".$ENV{$varenv}."\n\n"; exit 1; } } var_exist;
[EDIT 18:30]
Sous Windows il faut créer la variable environnement LANG, car elle n'existe pas de base...
Et pour tester l'OS :

Origine
Code:

1 2 3 4 5 #!/usr/bin/perl -w use strict; use English '-no_match_vars'; # Importer des variables prédéfinies print "=====\nOS : $OSNAME\n=====\n\n";

Pour être plus clair :
Env.pl :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use File::Spec;														# Gestion des noms des chemins sous tous les OS
use Config::Std;													# Lecture/ecriture d'un fichier .ini
use English '-no_match_vars';							# Importer des variables prédéfinies
 
my $RepBase      = 'E:/_DEV/_Essais';
my $FichierIni   = File::Spec->catfile( $RepBase, 'Env.ini' );
my %Config;
if ( -e $FichierIni ) {
 	read_config $FichierIni => %Config;
}
else {
 	%Config = (
   	'GLOBAL' => {
   		Debug	=> 'OUI',
   	},
   	'fr-FR' => {
   		Lib_1	=> '',
		},
		'fr-FR' => {
   		Lib_1	=> '',
		},
 	);
}
 
ActiverAccents();
my $Lang = (var_exist('LANG'));
 
if ( $Config{GLOBAL}{Debug} eq 'OUI' ) {
	print "\nLANGUES CONNUES $Config{GLOBAL}{Langues}\n";
	print "Variable environnement Langue = $Lang\n\n";
}
 
#####################
# Programme principal
 
print "Lib_1=$Config{$Lang}{Lib_1}\n";
print "Lib_2=$Config{$Lang}{Lib_2}\n";
print "Lib_3=$Config{$Lang}{Lib_3}\n";
 
###########
# Fonctions
sub var_exist {
	my ( $varenv ) = @_;
	if ( ! defined $Config{$ENV{$varenv}}{Active}) {
		print "\nLangue gérées = $Config{GLOBAL}{Langues}\n";
		print "Langue $ENV{$varenv} inconnue\n\n";
		exit;
	}
	return ($ENV{$varenv});	
}
 
#==============================================================
# Pour avoir les accents sur la console DOS
# http://perl.developpez.com/faq/perl/?page=Terminal#AccentsDOS
#==============================================================
sub ActiverAccents {
	my $encodage;
	# Windows
  	if ( lc($^O ) eq 'mswin32') {
		eval {
			my ($codepage) = ( `chcp` =~ m/:\s+(\d+)/ );
			$encodage = "cp$codepage";
			foreach my $h ( \*STDOUT, \*STDERR, \*STDIN, ) {
				binmode $h, ":encoding($encodage)";
			}
		};	
	}
	else {
		$encodage = `locale charmap`;
		eval {
			foreach my $h ( \*STDOUT, \*STDERR, \*STDIN, ) {
				binmode $h, ":encoding($encodage)";
			}
		};	
	}
  return $encodage;
}
 
#Sinon :
#ü 	\x81 	à 	\x85 	è 	\x8A
#é 	\x82 	ç 	\x87 	ï 	\x8B
#â 	\x83 	ê 	\x88 	î 	\x8C
#ä 	\x84 	ë 	\x89

Si tu as beaucoup de libellés, il est préférable de les mettre dans un fichier :
Env.ini :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
[GLOBAL]
Debug: NON
Langues: fr-FR en-EN
 
[fr-FR]
Active: OUI
Lib_1: Non
Lib_2: Oui
Lib_3: [nN]ouveau mot de passe
 
[en-EN]
Active: OUI
Lib_1: Not
Lib_2: Yes
Lib_3: [nN]ew password
[FIN]

Je ne connais pas Expect
Mais tu dois pouvoir faire :

Code:

$Config{$Lang}{Lib_3} => sub {

Il vaut mieux utiliser la variable LANGUAGE qui sous Unix/Linux ne contient pas le codage des caractères :
LANG=fr-FR.UTF-8
LANGAGE=fr-FR
Sur Mac... je ne sais pas :(