Discussion :

[vince2005]

lorsque je lance ce code, j'ai le message d'erreur suivant :Use of uninitialized value in numeric ne (!=) at :\TEMP\OC\essai1.pl line 4.


system("$BatchEXE") ;
$CodeRetour = $? ;

if ( ${CodeRetour} != 0) {
$MsgErreur="Erreur : Le Bath a rencontre une erreur\n" ;
}
else
{
print "c'est bon" ;
}
merci pour votre aide

[Arioch]

lorsque je lance ce code, j'ai le message d'erreur suivant :Use of uninitialized value in numeric ne (!=) at :\TEMP\OC\essai1.pl line 4.

Ce message apparait généralement lorsque ton script active le flag -w (warnings) sur sa première ligne (le shebang) et il est explicite : utilisation d'une variable ne contenant rien dans une comparaison numérique.

Ta variable $CodeRetour est indéfinie (undef).

[vince2005]

Oui en effet, au début de mon script, j'ai activé le flag -w.

Ma variable est défini ainsi :

My $CodeRetour;

Donc si je veux palier à ce probléme d'affichage, il faut que je définisse ma variable en undef

undef %CodeRetour;

ou puis je encore faire my $CodeRetour="";


Pourtant quand j'execute avec la commande system, qu'il y est une erreur ou non, j'ai quand meme un code retour, qui par conséquent n'est pas vide.


Merci pour vos réponses

[Arioch]

Je crois que tu te mélanges un peu entre les scalaires et les tableaux associatifs (ou encore hash)

$CodeRetour est un scalaire
%CodeRetour est un hash

As-tu activé use strict; au début de ton code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
system("$BatchEXE") ;
$CodeRetour = $? ;
 
if ( ${CodeRetour} != 0) {            # <------ ${CodeRetour} ???
    $MsgErreur="Erreur : Le Bath a rencontre une erreur\n" ;
}
else {
    print "c'est bon" ;
}

si pas fait, active le, tu devrais avoir au moins un autre message d'erreur

[Jedai]

Tu veux probablement faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $CodeRetour = system("$BatchEXE") ; ;
 
if ( $CodeRetour != 0) {
    $MsgErreur="Erreur : Le Bath a rencontre une erreur\n" ;
}
else {
    print "c'est bon" ;
}

--
Jedaï

[vince2005]

J'ai toujours un message d'erreur, que je déclare

$CodeRetour = undef ;
my $CodeRetour = "" ;
my $CodeRetour ;

message d'erreur :
Argument "" isn't numeric in numeric eq (==) at.....

use strict;
use warnings;

my $CodeRetour = "" ;
system("C:/system/toto.exe") ;
$CodeRetour=$? ;

if ( ${CodeRetour} == 0)
{
print "On est bon" ;
}
else
{
print "erreur" ;
}