Discussion :

[Olivier Regnier]

Bonjour

J'ai deux fonctions:

Code :

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

1
2
3
4
 
sub fonction2 {
print $server;
}

et la deuxième:

Code :

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

1
2
3
4
5
6
 
sub fonction1 {
my $server="blabla"
return $server;
&fonction2();
}

Ma question est simple, je n'arrive pas à afficher le contenu de $server ? Les fonctions sont placés dans le même ordre dans mon code.

Merki

[Jedai]

Perl est un langage de programmation, pas un shell !! (autrement dit toutes les variables ne sont pas globales)

Code :

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

1
2
3
sub fonction2 {
  print $server;
}

Ceci peut avoir deux sens : soit il existe une variable globale $server, et dans ce cas c'est sa valeur qui sera affichée, soit il existe une variable lexicale $server déclaré avant la déclaration (pas l'utilisation) de fonction2 et dans la même portée lexicale et dans ce cas c'est sa valeur qui sera affichée. Le deuxième cas est prioritaire sur le premier.

Ce qui est certain c'est que ça ne fera pas ce que tu veux :

Code :

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

1
2
3
4
5
sub fonction1 {
my $server="blabla"
return $server;
&fonction2();
}

Je suppose que tu t'attendais à l'affichage de "blabla" ? En dehors du fait que de toute façon "&fonction2();" se trouve après un return inconditionnel et qu'elle ne sera jamais exécutée... De toute façon $server est ici une variable lexicale (déclarée par my) et est donc invisible en dehors de sa portée lexicale, autrement dit fonction2 ne le voit pas, et n'affichera donc pas "blabla", quoi qu'il affiche.

Je suppose que tu as simplifié ton code pour montrer le problème (puisque ce que tu proposes ici n'a aucun sens), mais tant que je ne sais pas ce que tu veux faire, je ne peux pas t'aider beacoup plus.

Utilises-tu le pragma "strict" ? Ca t'aiderait sans doute à éviter des erreurs syntaxiques aussi flagrantes.
Encore une chose, on n'appelle pas les fonctions en les préfixant avec un "&", c'est une survivance de Perl4 ! Sauf cas très spéciaux, on utilise le & que quand on veux obtenir une référence sur une fonction.
--
Jedaï

[Olivier Regnier]

Je prends note de tes remarques. Merci de ton aide