Bonjour,
Je ne comprends pas pourquoi perl ne me redone pas la main a la fin du script.
La fin est atteinte car la derniere ligne est un 'print "DONE\n";'.

VOici les modules que j'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
 
use warnings;
use strict;
 
use Data::Dumper;
use File::Find;
use File::Basename;
use UNIVERSAL 'isa';
use warnings FATAL => qw( all );
$| = 1; # autoflush needed for \r
Auriez vous la moindre idee sur ce probleme ?

Merci de votre aide.
Z.