probleme de variable

Bonjour à tous,

Je débute en perl et j'essai de me faire un code qui permette de lire un fichier et de stocker le text commencant par bot_ dans des variables.
Mon probleme vient du fait qu'en dehors de ma fonction ma variable ne semble pas existente.

Dans le fichier supa.conf j'ai mit ceci:

Citation:

---

# test
bot_nick Henry
bot_ident testy
bot_name Test de chaine
# Fin

---

Maintenant voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

#!/usr/bin/perl   use strict; use warnings;     # loadconf(); # Initialisation de la configuration sub loadconf { my $path = "supa.conf"; my $bot = shift;   open(FILE,$path) or die("Impossible d'ouvrir $path : $!"); while (defined(my $text = <FILE>)) { chomp($text); if ($text =~ /^bot_([^ ]*) (.*)/) { $bot->{$1} = $2; print "$1 = $bot->{$1}\n"; # test 1 } } close(FILE); }     &loadconf();   #test 2 print "$bot->{nick}\n"; # Fin du code

---

Voila, en esperent que quelqu'un puisse m'aider a corriger ca
à plus tard et merci

Salut Ganondorf,

Ta variable '$bot' n'existe que dans ta fonction, car déclarée en tant que telle 'my $bot'. Si tu veux qu'elle soit globale, tu sors le 'my $bot' de la fonction (ie: au début du script par exemple) et tu ne fais que l'affectation dans ta fonction (ie: '$bot = shift;').

De plus, tu appelles ta fonction loadconf sans paramêtre alors que tu essayes de récupérer un paramêtre dans ladite fonction (ie: toujours la ligne 'my $bot = shift;').

Va falloir faire un choix vieux: variable globale ou paramêtre modifiable ?

Dans le cas d'un paramêtre modifiable, faut passer une référence sur une table de hachage en guise de paramêtre à ta fonction 'loadconf', mais tu le savais certainement déjà ;)

N'hésite pas si tu as des questions/interrogations :king:

PluX59
P.S: Ah bah alors, a paumé la triforce ? :yaisse2:

Merci PluX59, ca fonctionne impec :yaisse2:

Set POST="Résolu" alors :) (Y'a un bouton affiché sur chacune des lignes du sujet que tu as ouvert...n'a qu'à cliquer :bug: )

Dis, juste en passant, tu ne serais pas fan de Zelda par pur hasard ?

PluX59

Re :)

J'ai une autre question maintenant j'arrive a afficher ma variable $bot dans tout le fichier mais comment faire pour la lire a partir d'un autre fichier ?

J'ai utilisé 'use autre_fichier;' mais ca ne fonctionne pas

J'ai ecrit mon fichier principal comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

#!/usr/bin/perl # # Supa Bot IRC # #########################################################   use strict; use warnings;   # Supa modules use Divers;   # Global vars my $bot;   &loadconf(); # Lecture du fichier de configuration &sockopen($bot->{'serv'}, $bot->{'port'}); # Lancement du socket   # Fin   Je me sert du fichier Divers.pm pour les fonctions: Le voici:   #!/usr/bin/perl   use strict; use warnings;   use Main;     # loadconf(); # Initialisation de la configuration sub loadconf { my $path = "supa.conf";   open(FILE,$path) or die("Impossible d'ouvrir $path : $!"); while (defined(my $text = <FILE>)) { chomp($text); if ($text =~ /^bot_([^ ]*) (.*)/) { $bot->{$1} = $2; } } close(FILE); }     sub sockopen { my $serv = shift; my $port = shift; print "Connexion sur $serv $port\n"; }

---

Un/Des idées sur mon soucis ?

Re,

Commence par remplacer 'my $bot' par 'our $bot' pour voir...

Eh: t'es fan de Zelda ou pas ? (trop occupé à Perl pour me donner une réponse :()... Juste en rapport avec ton pseudo ;)

PluX59

Re PluX,

La derniere fois que j'ai joué à zelda c'etait sur adventure of link sur NES,
disons que je suis un ancien mordu, j'ai pas suivi le reste de la saga, j'preferai les bons graphisme en 2d !!! lol ;)

dans tout ca j'ai oublié de dire que même avec 'our $bot' ca ne fonctionne pas, de plus il me sort l'erreur:

Compilation failed in require at Main.pm line 13.
BEGIN failed--compilation aborted at Main.pm line 13.

à cette ligne se trouve:
use Divers;

C'est dur mais j'adore ca !!!

probleme résolu en ajoutent '1;' a la fin du fichier Divers.pm

Qand on utilise la commande 'use autrefichierfichier;' il faut que autrefichiersource retourne une valeur ?

Je met le sujet en résolu quand même vu que mon 1er prob est réglé.

A mon avis, une variable globale qui traine comme ça c'est une erreur de conception... Ta première fonction était très bien, il suffisait de lui faire renvoyer ton $bot (pourquoi pas %bot d'ailleurs ?) pour régler le problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

#!/usr/bin/perl use strict; use warnings;   # loadconf(); # Initialisation de la configuration sub loadconf { my $path = "supa.conf"; my %bots = @_;   open my($file), '<', $path or die "Impossible d'ouvrir $path : $!";   while (<$file>) { chomp; if ( m/^bot_([^ ]*) (.*)/ ) { $bots{$1} = $2; print "$1 = $2\n"; } } close($file);   return %bots }   my %conf = loadconf( );   print "$conf{nick}\n";

---

De plus la même solution résoud proprement ton autre problème.

--
Jedaï

Salut Jedai,

en effet c'est beaucoup plus simple comme ca et aussi plus propre que c'que j'etais en train de faire, merci

à bientôt

C'est encore moi et j'ai encore une autre question lol

si je veux utiliser la variable $conf{nick} dans un autre fichier il faut necessairement que je redeclare dans cette autre fichier ceci:

my %conf = loadconf();

merci de votre aide en tout cas ;)

Citation:

---

Envoyé par Jedai

A mon avis, une variable globale qui traine comme ça c'est une erreur de conception... Ta première fonction était très bien, il suffisait de lui faire renvoyer ton $bot (pourquoi pas %bot d'ailleurs ?) pour régler le problème :
...

--
Jedaï

---

Tout à fait d'accord.

Personnellement quand je débute sur un langage je fais du fonctionnel... Ensuite quand je pratique je fais du conceptuel... Mais pas trop quand même, hein ;)

PluX59