Discussion :

[Ganondorf]

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:

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

Maintenant voici le code:

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

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