Discussion :

[vince2005]

Bonjour,

Je souhaiterai faire un script qui attend la venu d'un fichier dans un répertoire.
Si celui là n'est pas présent, alors on attend, jusqu'à temps qu'il arrive.

Du genre, tant que le fichier n'est pas présent....j'ai commencé un script, mais j'arrive pas sur la boucle.

my $PathFic=c:\temp\test.txt
......
if (-e $PathFic) {
print "Le fichier $PathFic présent" ;
print "on sort du programme" ;
exit ;
}
.....

[djibril]

Tu peux faire un truc du genre je dors tant que je ne trouve pas le fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use warnings;
use strict;
 
my $PathFic = 'C:/temp/test.txt';
 
INFINI:
while ( 1 == 1 ) {
  if ( -e $PathFic ) {
    print "Le fichier $PathFic présent\n";
    print "On sort du programme\n";
    last INFINI;
  }
 
  # Je dors pendant 10 secondes
  sleep 10;
}

[vince2005]

c'est quoi INFINI:

[vince2005]

si je mets cela, c'est pareil, je remplace infini par exit ;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
my $PathFic = 'C:/temp/test.txt';
 
 
while ( 1 == 1 ) {
  if ( -e $PathFic ) {
    print "Le fichier $PathFic présent\n";
    print "On sort du programme\n";
    exit;
  }
 
  # Je dors pendant 10 secondes
  sleep 10;
}

[djibril]

INFINI aurait pu être TOTO, c'est juste une étiquette. Ton code aussi fonctionnera. Merci de penser aux balises codes !!