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 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
...
use lib '../../config';
use toto_perl;
...
Je voudrais qu'il devienne :
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;
...
Visiblement, le require se passe bien, mais l'import ne fonctionne pas. Existe-t-il une solution à ce probème ?

Merci pour vos réponses .