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" ;
}

[Arioch]

Pourquoi les accolades entourant CodeRetour dans if ( ${CodeRetour} == 0) ???

[vince2005]

elle sert à protéger la valeur, mais si je les retire !! le résultat est le meme !!!

[vince2005]

en fait mon code retour est vide !! c'est pour cela que ça plante !

Mais je veux que si mon code retour soit vide ou différent de 0, alors j'affiche une erreur.

est ce qu'il faut que dans ma déclaration, il faut que je donne une valeur quelconque à coderetour, comme 100 ou 200.

Mais est ce cette valeur attribué à coderetour, ne sera pas prise par le langage perl ?

[Arioch]

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
if ( ! $CodeRetour)
{
    print "On est bon" ;
}
else
{
    print "erreur" ;
}

[Arioch]

Je reproduit (un peu remanié) le code de Jedai, tu sembles l'avoir zappé mais il est très bon !

Code :

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

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