Nom de package variable

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:

---

1 2 3 4

... use lib '../../config'; use toto_perl; ...

---

Je voudrais qu'il devienne :

Code:

---

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 .