exemple de script avec autoloader

**djibril** · 21/11/2005, 15h58

Vous me ferez une correction si c'est le cas, mais je voudrais avoir un
exemple simple de script utilisant autoloader. En fait, j'ai creé un
module module.pm dans lequel j'y ai mis plusieurs sous programme que
j'utilise couramment.
ex : module.pm

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
#!/usr/bin/perl -w
use strict;
use Carp;
 
sub date {
.....
return $date;
 
}
 
sub comparer_hash {
.....
....
}
 
etc
1;

############################

Code :

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

1
2
3
4
5
6
7
8
9
script.pl
 
#!/usr/bin/perl -w
use strict;
use Carp;
use lib './mes_module/';
use module_usuels;
 
print date();

########################
tout fonctionne correctement. Neanmoins, en quete d'optimisation, j'ai
vu que le fait d'utiliser autoloader empeche de charger mon module
completement, et qu'il ne charge les fonctions seulement sur demande,
donc un gain de temps considerable si mon module est tres gros. Mais je
sais pas comment l'utiliser.
J'ai ecris ceci dans module.pm, mais ça fonctionne pas et je trouve pas d'exemple :

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
#!/usr/bin/perl -w
use strict;
use Carp;
use AutoLoader 'AUTOLOAD';
1;
__END__
sub date {
.....
return $date;
 
}
 
sub comparer_hash {
.....
....
}

etc
Merci de votre aide

**Jedai** · 21/11/2005, 17h13

Il faut utiliser AutoSplit sur ton module pour que AutoLoader puisse fonctionner... De plus tu semble systèmatiquement oublier la ligne

Code :

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

1
2
 
package module;

dans ton code, mais c'est peut-être une simple faute de frappe sur le forum.

--
Jedaï

**djibril** · 21/11/2005, 17h55

Envoyé par Jedai

Il faut utiliser AutoSplit sur ton module pour que AutoLoader puisse fonctionner... De plus tu semble systèmatiquement oublier la ligne

Code :

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

1
2
 
package module;

dans ton code, mais c'est peut-être une simple faute de frappe sur le forum.

--
Jedaï

peuxtu etre plus precis, je sais toujours pas comment ecrire ce module

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
 
#!/usr/bin/perl -w
use strict;
use Carp;
package module;
use AutoLoader 'AUTOLOAD';
1;
__END__
sub date {
.....
return $date;
 
}
 
sub comparer_hash {
.....
....
}
1;

mais ça marche toujours pas