Discussion :

[vince2005]

Lorsque je fais ce code, je me retrouve avec ma variable Login à vide, alors que je devrai avoir le login XP. puisque si type = essai1 , alors je lance attribution.

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 $Login = "";
 
sub TOTO ()
{
  print "$Login\n";
}
 
sub ATTribution ()
{
  my $Login = "XP";
}
 
if ("${Type}" eq "essai1") { ATTribution; }
 
TOTO;

merci de votre aide

[rcageot]

si tu ne passes pas ta variable à ta sub il ne risque pas de la connaitre
exemple :

Code :

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

1
2
3
4
5
6
7
8
 
sub test {
 local( $var) = @_;
 $var = uc($var);
 return($var);
}
$login=test("texte de ma variable") ;
print $login;

[2Eurocents]

si tu ne passes pas ta variable à ta sub il ne risque pas de la connaitre
exemple :

Code :

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

1
2
3
4
5
6
7
8
 
sub test {
 local( $var) = @_;
 $var = uc($var);
 return($var);
}
 
print test("texte de ma variable") ;

$var vaut 1, dans ce contexte, et pas la chaine passée en paramètre.
Je rappelle que @_ est la liste de tous les paramètres de la fonction. Son affectation dans un scalaire donne donc le nombre de paramètres.

Sinon, dans l'usage qu'il en fait, vince2005 n'a pas besoin de passer sa variable en paramètre puis qu'elle est globale (déclarée avant et hors de toute fonction). La pertinence de l'usage de variables globales est un autre débat.

Son erreur porte sur la fonction ATTribution. En effet, il y a déclaré $Login comme étant locale (avec le my). La valeur attribuée dans la fonction est donc perdue aussitôt son exécution terminée.

Vince2005, je te recommande de reprendre un peu de lecture, notamment de la FAQ où l'on parle de la portée et de la visibilité des variables, ainsi que des appels de fonction.

Par ailleurs, pourquoi fais tu toujours un test ("${Type}" eq "chaine"), là où un ($Type eq "chaine") suffit ?
Perl n'est pas bash. Il n'y a pas nécessairement besoin d'encadrer la variable par des "" et le ${ } me paraît superflu. Non ?

[MarneusCalgarXP]

Lorsque je fais ce code, je me retrouve avec ma variable Login à vide, alors que je devrai avoir le login XP. puisque si type = essai1 , alors je lance attribution.

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 $Login = "";

sub TOTO ()
{
  print "$Login\n";
}

sub ATTribution ()
{
  my $Login = "XP";
}

if ("${Type}" eq "essai1") { ATTribution; }

TOTO;

merci de votre aide

C'est normal, tu as déclaré une variable local $Login dans la sub avec ton my... du coup, la variable globale n'est pas modifiée. Retire le my, ca ira mieux !

[vince2005]

en fait si en début de script, j'écris

Code :

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

1
2
 
my $Login = "TEST_LOGIN";

et bien dans ma procédure, je me retrouverai avec ce résulat TEST_LOGIN, meme si encours de route, j'attribue un nouveau libéllé à $Login.

si je déclare simplement

Code :

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

1
2
3
 
 
$Login = "TEST_LOGIN";

j'ai le meme probléme !!!

[vince2005]

merci ça semble fonctionner en retirant le my !!!

[rcageot]

$var vaut 1, dans ce contexte, et pas la chaine passée en paramètre.
Je rappelle que @_ est la liste de tous les paramètres de la fonction. Son affectation dans un scalaire donne donc le nombre de paramètres.

je fais peut être une erreur depuis la nuit des temps mais j'ai toujours fais comme ça et ça marche! $var n'est pas égal à 1! mais contient bien la chaine de caractères passé en paramètre

Code :

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

1
2
3
 
sub test {
   local($var) = @_;

me renvoit bien le premier paramètre passé à la sub (même si 2 ou plus sont envoyés)

Code :

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

1
2
 
   local ($var1,$var2) = @_;

m'assigne bien le premier et le 2ème paramètre passé à la sub !!

j'utilise aussi de temps en temps quand j'ai le temps

Code :

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

1
2
 
  my $var1 = shift;

voir par exemple ce qu'en dit la doc sur les perlsub http://www.bribes.org/perl/docfr/perlsub.html:

[Woufeil]

Vous avez tous les deux raisons !

Je m'explique, si l'on affecte, dans un contexte scalaire, @_ à un scalaire, alors il vaudra bien le nombre d'élements de @_. Mais si l'on effecte dans un contexte de liste (donc en mettant des paranthèses) @_ à un scalaire, le scalaire vaudra le premier élément de la liste

En fait, c'est même plus compliqué. un listing explicitera mieux :

Code :

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

1
2
3
4
my @tab = ("ele1","ele2","ele3");
my $toto = @tab; #toto vaudra 3
my ($titi) = @tab; #titi vaudra "ele1"
my $foo = ("ele1","ele2","ele3"); #foo vaudra "ele3". Perl renvoie un warning si le pragma du même nom est activé

C'est particulier, je vous l'accorde
Pour le dernier cas, la régle veux qu'une évaluation en contexte scalaire d'une liste (pas d'un tableau, d'une liste, c'est différent !) renvoie le dernier élément de la liste.

[rcageot]

n'empêche que j'aurai du parier avec 2Eurocents
dans mon exemple j'aurai gagné

[MarneusCalgarXP]

merci ça semble fonctionner en retirant le my !!!

ok, n'oublie pas

[2Eurocents]

n'empêche que j'aurai du parier avec 2Eurocents
dans mon exemple j'aurai gagné

Moi, je tourne chèvre ... j'avais copié/collé ton code dans mon shell pour vérifier ce que je pensais, avant de répondre en citant ...

Dans l'historique de mon shell, j'ai :

Code :

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

1
2
3
4
5
6
  372  perl -e 'sub test {
  373   my $var = @_;
  374   $var = uc($var);
  375   return($var);
  376  }
  377  print test("texte de ma variable") ;'

Ce qui est faux.

Dans ton message, et ma citation, je vois apparaître :

Code :

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

   local ($var) = @_;

Ce qui est juste ...

Je crois que je vais aller prendre mes petites pilulles bleues, avant de douter davantage de la réalité qui m'entoure.

[Woufeil]

J'ai aucun mal à te croire, j'avais du mal à admettre que tu ne saches pas ça 2Eurocents

[rcageot]

j'avoue que j'ai édité mon message, mais tu as du aller vite car il s'est passé moins d'une minute entre mon post et mon edit !
tu as du copier le code dans cet intervale et faire la réponse après !
ça m'aprendra à poster trop vite et à faire passer mes petits camarades pour des ignares

[Jedai]

si tu ne passes pas ta variable à ta sub il ne risque pas de la connaitre
exemple :

Code :

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

1
2
3
4
5
6
7
8
 
sub test {
 local( $var) = @_;
 $var = uc($var);
 return($var);
}
$login=test("texte de ma variable") ;
print $login;

NB : Personnellement j'aurais plutôt critiqué l'usage de local() à la place de my(), ce sont des fonctions différentes et je préfère nettement my() pour ma part : je pense que l'usage du local() ne fonctionne pas sous le pragma strict (sauf si la variable globale a été déclarée avec our() ou use vars préalablement), et d'autre part, même si on n'est pas sous strict, cela fonctionne mais on se retrouve avec une variable globale "morte" qui traîne en-dehors de la fonction alors qu'elle n'y sert à rien, d'où un gaspillage de place... (Sans parler des dangers propres à local())

--
Jedaï