Discussion :

[pouet33]

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.

[chostrama]

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
undef $object;

avant de faire unlink().

[pouet33]

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

Merci d'avance pour votre support.

[djibril]

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

[pouet33]

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

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

[djibril]

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

[pouet33]

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

[2Eurocents]

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

Quand on regarde à cette adresse et qu'on voit

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:arser 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

[pouet33]

Au vue d'une telle affirmation, je ne peux que m'y plier
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 :

Merci tout de même à tous pour votre soutien

[djibril]

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

[2Eurocents]

Au vue d'une telle affirmation, je ne peux que m'y plier
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 :

Merci tout de même à tous pour votre soutien

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

[pouet33]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à