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:
Maintenant voici le code:# test
bot_nick Henry
bot_ident testy
bot_name Test de chaine
# Fin
Voila, en esperent que quelqu'un puisse m'aider a corriger ca
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
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
à plus tard et merci
Partager