Discussion :

[djbad]

Bonjour ca fait 3 heures que je bloque, mais je ne trouve pas mon erreur

Code :

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

1
2
3
4
5
6
7
8
9
 
if (!defined $mot) # extensions manquantes 
	{
		print "\nParamètres manquants\n";
		print "\n\n";
		die;
	}
 
else {print "OK";}

après je lance via terminal perl mon_script -mot='aaa'
normalement je devrais avoir OK puisue mot est défini mais au contraire je vais toujours dans la condition.
Merci

[dmganges]

Bonjour,

Je ne suis pas sûr de tout comprendre, mais :

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
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
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
 
ActiverAccents();
 
my $mot = ();
if (!defined $mot) # extensions manquantes 
	{
		print "\nParamètres manquants\n";
		print "\n\n";
	}
 
else {print "OK $mot";}
 
$mot = 'aaa';
if (!defined $mot) # extensions manquantes 
	{
		print "\nParamètres manquants\n";
		print "\n\n";
	}
 
else {print "OK $mot";}
 
#==============================================================
# 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

[djbad]

merci
en mettant juste ca #!/usr/bin/perl -s
en debut de programme ca marche