Bonsoir à tous,

J'ai un petit soucis, voici mon probleme:
J'ai un fichier principale 'services.pl' ou je lance toutes les taches a effectuées
voici le code source de ce fichier:

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
 
use strict;
use Socket;
 
# Modules necessaire
use Divers;
use Connection;
 
# table de hash
my %config;
my %access;
 
# stockage de la configuration et des accés dans les tables
Divers::load_config(\%config);
Divers::load_access(\%access);
 
# creation du socket et connexion vers irc
Connection::build_sock;
 
# mise en arriere plan
Divers::fork;
Je fais appel dans ce fichier d'un autre fichier (package) 'Divers.pm'
fichier dans lequel je créer mes tables config et access, 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
30
31
 
package Divers;
use strict;
 
sub load_config
{
	my ($config) = shift;
	my $path = "config/uworld.conf";
	open(FILE, "$path") or die "load_config() erreur: $!";
	while(my $line = <FILE>)
	{
		chomp($line);
		if ($line =~/^uw_(.+?)=(.+?)$/)
		{
			$config->{"$1"} = "$2";
		}
	}
	close(FILE);
}
 
sub load_access
{
	print "Je lis les accés\n";
}
 
sub fork
{
	print "Je fork\n";
}
 
1;
Alors tout fonctionne bien, ce que je voudrai faire c'est pouvoir réutiliser une table créer dans Divers.pm (la table %config) dans le fichier 'services.pl' ou un autre fichier pouvez vous m'eclairer ?

désolé si ma question est stupide mais j'ai lu la faq perl et j'ai toujours pas trouvé ...

en tout cas merci