Bonjour à tous,

j'ai un problème "basique". J'ouvre un fichier .rtf afin d'aller lire la première ligne et en extraire le contenu.
Suite à ça je veux effacer le fichier et là pfffff !!!! impossible car il est occupé par ce fichu RTF::Reader.
Voici le bout de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
use RTF::Reader;
$source_file=$ARGV[0]; 
my $object = RTF::Reader->new( file => $ARGV[0] );
$object->process;
$extract_market = substr($object->{buffer}, 0, 2);
chdir $extract_market;
....
unlink $source_file; 
exit;
Si quelqu'un a une idée sur comment faire le unlink, merci d'avance.