Discussion :

[fredo2009]

Ce script n'est qu'un ex qui contient d'ailleurs des erreurs.

Code :

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

1
2
3
4
5
6
use strict;
system "notepad";
system "notepad";
system "dir c:\ *.* > dir.txt";
exec "notepad dir.txt";
system "notepad";

Je sais que la commande system attend la fin de la commande pour executer la suite du script.
La commande exec me sort du script dès qu'elle est exécutée.

Y a-t-il un autre moyen d'exécuter des commandes systems sans avoir besoin d'attendre la fin de l'une pour passer à la suivante?

Code :

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

system "dir c:\ *.* > dir.txt";

Là j'ai un problème avec le path
Et un problème pour afficher la taille restante libre.
Voilà le résultat:

Code :

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

1
2
3
4
5
6
7
8
 R‚pertoire de C:\Perl\script
 
23/01/2006  01:19    <REP>          .
23/01/2006  01:19    <REP>          ..
23/01/2006  10:59                73 exec.pl
23/01/2006  11:04                 0 dir.txt
               4 fichier(s)              146 octets
               4 R‚p(s)  11ÿ313ÿ020ÿ928 octets libres

[GLDavid]

Avec un fork ? http://perl.developpez.com/faq/?page...nC2#sectionC24

@++

[fredo2009]

Bon, me suis débrouillé avec open:

Code :

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

1
2
3
4
5
use strict;
open F, "| notepad ";
open G, "| notepad ";
system "dir c:\\*.* > dir.txt";
exec "notepad dir.txt";

Mais pour l'affichage de la taille restante, voilà ce qui me donne:

Code :

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

1
2
 18 fichier(s)       19ÿ865ÿ439 octets
              21 R‚p(s)  11ÿ297ÿ341ÿ440 octets libres

C'est pas très lisible
lol