Impossible d'effacer un fichier ouvert avec RTF::Reader

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. :evil:
Voici le bout de code :

Code:

---

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.

Essaye

Code:

---

1 2	undef $object;

---

avant de faire unlink().

Citation:

---

Envoyé par chostrama

Essaye

Code:

---

1 2	undef $object;

---

avant de faire unlink().

---

Désolé de la réponse un peu tardive, mais j'étais absent quelques temps. 8)

la commande undef $object; malheureusement ne marche pas non plus. :cry:

Merci d'avance pour votre support.

y aurais pas une methode close() dans la doc du module.

Citation:

---

Envoyé par djibril

y aurais pas une methode close() dans la doc du module.

---

Ben malheureusement non :cry:
voici l'adresse du module concerné :
http://search.cpan.org/~sargie/RTF-R.../RTF/Reader.pm
au cas où ... :wink:

et ce module peut pas t'aider, RTF-Parser-1.09 ??

Citation:

---

Envoyé par djibril

et ce module peut pas t'aider, RTF-Parser-1.09 ??

---

Je ne sais pas ...
le but du programme est d'uniquement lire la première ligne du fichier rtf contenant un truc du genre "US65" afin de pouvoir déplacer ce fichier dans un répertoire nommé US.

Ensuite trouver une ligne contenant au début :"our ref" et en copier le contenu dans une $variable.

Merci

Citation:

---

Envoyé par pouet33

voici l'adresse du module concerné :
http://search.cpan.org/~sargie/RTF-R.../RTF/Reader.pm
au cas où ... :wink:

---

Quand on regarde à cette adresse et qu'on voit

Citation:

---

THIS MODULE IS AT BEST BETA, AT WORST, STILL IN 'PLANNING'. The interface may change, the docs are almost certainly slighty out of date.... The latest version of all this is in CVS - use that instead where possible. Details at http://rtf.perl.org/...

---

et qu'en plus, les dernières news du site pointé datent de novembre 2004 et que pour conclure, le répertoire cvsmonitor du site, censé nous permettre de parcourir du code, ne fonctionne pas ...

Quand on voit tout ça, il y a de quoi se poser des questions sur la vivacité du module :?

Si tu n'envisage pas de changer de module pour un RTF::Parser soutenu par le CPAN, je te propose la démarche suivante :

- Ouvrir toi-même le fichier avec un open ( or die, bien sur ;) )
- Passer le HANDLE ainsi obtenu au new de ton RTF::Reader
- Fermert toi-même le fichier avec un close
- Enfin, faire le unlink qui te bloque depuis le début ... mais le fichier étant fermé, pas dans un état incertain dans un module improbable :)


Bon courage

Au vue d'une telle affirmation, je ne peux que m'y plier :wink:
En effet je crois qu'il va être préférable que je m'oriente sur un module plus "stable" et conforme car autrement je vais finir comme ça : :arf:

Merci tout de même à tous pour votre soutien :ccool:

je vais enlever resolu pour mettre delestage à ton sujet :lol:
logique non :wink:

Citation:

---

Envoyé par pouet33

Au vue d'une telle affirmation, je ne peux que m'y plier :wink:
En effet je crois qu'il va être préférable que je m'oriente sur un module plus "stable" et conforme car autrement je vais finir comme ça : :arf:

Merci tout de même à tous pour votre soutien :ccool:

---

As tu quand même testé l'alternative que je te propose, en transmettant un FileHandle à RTF::Reader ???

As tu quand même testé l'alternative que je te propose, en transmettant un FileHandle à RTF::Reader ???[/quote]

J'ai essayé sans succès.
Le moyen le plus simple mais "barbare" lancer un .bat en premier :

Code:

---

1 2 3 4

run.bat   perl traitement.pl %1 perl delete.pl %1

---

pis là ben c'est ok.

C'est triste d'en arriver là :cry: