perl ne s'arrete pas a la fin du script
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:
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.
