faire l'invocation de commande en perl

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.

:ccool:

Merci d'avance

Bonjour,

essaye plutôt :

Code:

---

1 2	"> $ficF02". substr(@{$_}[2],2)

---

Bonjour,

Quand on met une commande entre double quote elle n'est pas interpretée comme telle au contraire des variables $qelquechose.

Dans ton cas tu pourrais faire :

Code:

---

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

---

Bon je n'ai pas testé

Edit : Bon ben apparemment jaljal est d'accord avec moi :P

Je decommenté la commande substr

Voici ce que j'ai fait.

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

Vous êtes très rapides pour repondre.

Lorsque je me suis rendu compte de mon erreur et corrigé mon code vous avez dejà envoyé ses réponses.

Merci beaucoup.

Quand tu postes un bout de code, n'oublie pas d'utiliser la balise [CODE] (icone http://www.developpez.net/forums/images/editor/code.gif) ;)

Sinon, pour appeler des commandes systèmes en perl, il existe au moins deux moyens qui retournent des valeurs différentes selon le besoin :
- la function system (perldoc -f system)
- l'opérateur qx ou ` (perldoc perlop)