commande systeme

Voilà, je voudrais effectuer en routine l'execution d'un prog qui est sur ma machine. Je veux donc effectuer une commande system.
J'ai bien lu la F.A.Q. et j'ai trouvé la manière d'opérer.

Code:

---

1 2	system "mon_prog fichier1.txt > resultat_fichier1.txt";

---

Seulement, j'ai à faire ça sur un nombre important (petite 50aine) de fichiers et je voudrais boucler pour éviter d'écrire cette commande 50 fois 8O!!

Donc quelque chose du style:

Code:

---

1 2 3 4 5

my $i; # incrementation du numero de fichiers for ($i=0;$i<50;$i++){ system "mon_prog fichier$i.txt > resultat_fichier$i.txt"; }

---

Mais vous vous en doutez bien, ça ne marche pas :( ;).. Comment faire pour que perl considère bien $i comme une variable à incrémenter dans ma commande systeme?

Merci d'avance!!

Citation:

---

Envoyé par stoyak

Mais vous vous en doutez bien, ça ne marche pas

---

8O Justement, on ne s'en doute pas ...

Peux-tu détailler le "ça ne marche pas" ? Qu'est ce que cela produit ... A première vue, cela devrait marcher à peu près.

Juste pour tester, j'ai fait - à la ligne de commande - ceci qui fonctionne parfaitement et selon la même logique :

Code:

---

perl -e 'foreach $i (1..50) { system ("echo fichier$i > toto$i.toto") }'

---

c'est ok!!! tout marche nickel!
voilà mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

my $i; my $fic_ini = "fic.txt";   for ($i=1;$i<12;$i++){   my $data = "ref".$i.".txt";   my $fic_fin = "fic_ref".$i.".txt";   system "mon_program $data $fic_ini > $fic_fin";   }

---

:resolu: