Discussion :

[djibril]

Salut,
J'ai un sript .pm dans lequels j'ai une vingtaines de procedures qui me depannent de temps e temps.
Seulement dans ce .pm, j'utilise une vingtaine de modules, donc en debut de script j'ai une vigtaine de ligne avec use, mon .pm commence donc par ça :

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
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
use toto;
use titi;
use pppp;
...
 
sub proc1 {
...
}
 
sub proc2 {
...
}
 
sub proc2 {
...
}

si j'utilise ce module dans certains scripts, bah il prends toujours au minimum 3 à 4 secondes pour charger tous les modules utilisé par mon .pm.
Pourtant, je n'ai pas forcement toujours besoins de tout.
Comment faire pour optimiser ça.
D'ailleur, si je fais juste perl mon_module.pm
il ne retourne rien, ce qui est normal, mais il fait 3 à 4 secondes.
y t il moyen de reduire ce temps?

Merci

[JakoJako]

Tu peux utiliser des 'require' des modules requis dans chaque fonction : ça diffère le chargement du module jusqu'à ce qu'on en ait besoin (et donc, si on ne s'en sert pas, on ne le charge pas et ... on ne perd pas de temps)

Si le module est requis plusieurs fois, il n'est chargé qu'une seule fois.

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
package testuse;
use lib '.';
 
sub fn1
{
	require Module1;
	return 0;	
}
 
sub fn2
{
	require Module1;
	return 0;
}
 
1;

Code :

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

1
2
3
4
5
6
7
8
9
10
package Module1;
 
BEGIN
{
	my $strPackage = __PACKAGE__ ;
 
	print "($strPackage) chargé\n";
}
 
"1";

Code :

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

1
2
3
4
5
use lib '.';
use testuse;
 
&testuse::fn1;
&testuse::fn2;

Si tu supprimes dans le dernier code les appels à fn1 et fn2, tu verras que Module1 n'est pas chargé. Et si on laisse les 2 appels, on voit qu'il n'est chargé qu'une fois.

Le seul souci que je voie est que des erreurs seront détectées à l'exécution plutôt qu'à la compilation.

Jako

[djibril]

merci pour ta réponse et j'y avais pensé, mais il se peut qu'il y ait un hic et ça peut etre dangereux

Code :

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

1
2
3
4
5
6
7
8
9
 
require Cwd;                # rends Cwd:: accessible
$here = Cwd::getcwd();
 
use Cwd;                    # importe les noms depuis Cwd::
$here = getcwd();
 
require Cwd;                # rends Cwd:: accessible
$here = getcwd();           # oups ! y'a pas de  main::getcwd()

En général, use Module () est recommandé a la place de require Module, car cela détermine si le module est la au moment de la compilation, pas en plein milieu de l'exécution de votre programme.
Donc tout dépends du module qu'on utilise je pense. Certains permettent l'utilisation de methodes après création d'un objet et d'autres non (le cas de Cwd par exemple)

[pospos]

Tu aussi peux utiliser import apres un require, pour arriver au meme resultat final qu'une use à runtime.
En fait use n'est rien d'autre qu'un require et un import dans un bloc BEGIN.

Pour ton problème de lenteur de chargement, cela peut etre du à un trop gros nombre de repertoires dans ton @INC : perl va les scanner linéairement à la recherche de chaque module usé. Pour peut qu'un des repertoires de @INC soit particulierement lent (genre repertoire samba), l'initialisation du module peut etre très ralentie.