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.

Mémoire saturée... Il a dû oublier de la vider:lol: