Bonjour,
Je souhaite dans un fichier perl importer un package dont je connait l'emplacement relatif et une partie du nom mais dont je veut calculer l'autre partie du nom en fonction de l'arborescence dans laquelle je me trouve. Par exemple, considérons cet import :
Je voudrais qu'il devienne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 ... use lib '../../config'; use toto_perl; ...
Visiblement, le require se passe bien, mais l'import ne fonctionne pas. Existe-t-il une solution à ce probème ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 ... use Cwd 'getcwd'; (my $rep = getcwd()) =~ s%.+(\w\w)/[^/]*$%$1%; use lib '../../config'; require $rep.'_perl.pm'; my $package = $rep.'_perl'; import $package; ...
Merci pour vos réponses .
Partager