Bonjour,
Lorsque je lance le script suivant un nombre important de fois. Il m'arrive d'avoir un ecran bleu windows avec l'erreur suivante:
Erreur Fatale 0E est apparue
à 0028:C0244699
dans VXD
VMM(10)+5X0699
l'application va ce terminer.
SCRIPT:
-------
#!/bin/perl
ss
use Net::FTP;
#
# programme : X
#ssssssssss : X
# auteurssss: X
# datessssss: X
# copyright : X
#
$filename=@ARGV[0];
$remotefilename=@ARGV[1];
$remotetempo=@ARGV[2];
$remotehost="X";
$directory="X_X";
$filereturn=substr($filename,0,20).retour.chr(46).ret;
#print "Nom de fichier " , $filename , "
";
#print "Nom de fichier " , $filereturn , "
";
#----- ouverture de la session ftp
$ftp = Net::FTP->new($remotehost,
ss TIMEOUT => 30)ssor die "Impossible de se connecter: $@
";
$ftp->login(X, X)ssssssssss or die "Impossible de se logger
";
#----- on va dans $directoryss
$ftp->cwd($directory)ssssssssssssssssssor die "Impossible de changer de directory
";
#----- transfert du fichier $filename
$ftp->put($filename,$remotetempo)ssssssor die "Impossible de transferer $filename
";
#----- renommage de .remote en remote
$ftp->rename($remotetempo,$remotefilename) or die "Impossible de renommer "."$remotefilename
";
# on renvoie le fichier pour v‚rifier s'il est identique
$ftp->get($remotefilename,$filereturn)ssssor die "Impossible de transferer $filereturn
";
#----- fin de la connection ftp
$ftp->quit()ssssssssssssssssssssor warn "Impossible de quitter
";
exit();
Merci d'avance
Damien.
