Bonjour


Sur shell il est possible de utiliser une commande dans une autre.

echo " $(ls)"

Je voudrais faire la même chose sur perl:


map ( {open (@{$_}[0], "> $ficF02. substr(@{$_}[2],2)") } values %tableVir);

ou

ficF02 c'est le nom d'un fichier "F02000000"
tableVir c'est une table de hachage qui contient des references sur des listes.
sur chaque liste je veux prendre qu'un champ specifique " 0202"
une fois que j'ai ce champ je veux l'ajouter comme suffixe à mon nom de fichier que je vien de créer.

Mon premier problème c'est que ce champ contient de spaces vides.
C'est pour cela que j'utilise le substr, mais lorsque je compile j'obtient
F02000000.substr( 0202 ,2) au lieu de F02000000.0202

Est ce que sur perl il y a le meme principe de l'invocation de commade de shell en ce qui concerne l'exécution de la fonction substr.



Merci d'avance