Discussion :

[stoyak]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

Donc quelque chose du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

[2Eurocents]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stoyak]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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";
 
}