Discussion :

[dirty_harry]

Bonjour à tous,
Je suis un grand débutant dans le domaine du PERL et j'ai beaucoup de mal a régler un tout petit problème, voici mon code (version simplifié):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my $var1="inconu";
sub maMethode {
        my $var2="test";
        if($var2 ne ""){
              $var1=$var2;
              print("affectation de la variable  -$var1-\n");
        }
        print "-$var1-\n";
 
}

voila ce que j'obtient à l'écran:
affectation de la variable --
-inconu-

je ne comprend pas pourquoi je n'ai pas :
affectation de la variable -test-
-test-
?
quelqu'un a une idée? si vous pouvez m'aider merci d'avance.

[Mr6]

Salut !

Ce code la (tel quel) ne te renvoie pas test ?
Tu pourrais mettre la version complète stp ?

@+
Mr6

[dirty_harry]

en fait c'est assez incompréhensible: je fait pareil pour plein de paramêtre à récupérer et sa marche pour tout, j'ai même rajouté un affichage avant pour vérifier le contenu de $var2 et sa marche, je récupére en faite var2 dans un tableau au milieu de plein d'autre variable qui marche toute très bien. ce que je ne comprend pas c'est l'incohérence algorithmique:

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
 
 
my $var1="inconu";
sub maMethode {
        my $var2="test";
        print "-$var1-\n";//là il affiche bien test
        if($var1 eq "inconu" $var2 ne "" and $var2 ne" "){ 
        //le test sur var 1  sert car on passe plusieur fois dans le programmes
        // on est dans le SI donc var2 est différent de " " et var1= inconnu
 
              $var1=$var2;//ici var1 ne devrait pas être vide
              print("affectation de la variable  -$var1-\n");
        }
        print "-$var1-\n";//pourtant ici il m'affiche du vide
 
}

[Mr6]

La version complète incluait la façon d'appeler la fonction, les éventuelles déclarations de variables en amont, s'il y a un use strict, etc...
Car là par exemple :

Code :

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

1
2
my $var2="test";
        print "-$var1-\n";//là il affiche bien test

On ne teste pas $var2 mais $var1, et il ne peut donc pas afficher test puisque $var1="inconnu". Si on a test affiché ici cela veut dire qu'en amont il y a déjà eu un remplacement de $var1...

@+
Mr6

[Philou67430]

Et là :

Code :

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

if($var1 eq "inconu" $var2 ne "" and $var2 ne" "){

Il y a carrément une erreur de syntaxe

A tout hasard, tu n'aurais pas écrit $varl (var suivi de la lettre "l") au lieu de $var1 (var suivi du chiffre "1") ?

Code :

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

$varl != $var1; # var suivi de lettre L en minuscule et var suivi du chiffre 1