Discussion :

[chalme]

Bonjour à tous.
Je suis débutant en perl et je suis tombé sur un truc qui m'a surpris, donc je fais appel à vos connaissances.

J'ai un script (script1) qui va écrire plus ou moins automatiquement dans un fichier rtf (via une librairie qui va bien) puis le ferme.
J'ai un second script (script2) qui ouvre ce fichier le copie dans un autre fichier (fichier2) avec au besoin des modifs si une regexp est reconnue.
CF en dessous pour le code simplifié.

Si je lance mon script1 puis mon script2 je n'ai aucun problème, mon fichier2 correspond à ce que je veux.
Par contre si j'inclue le code de mon script2, mon fichier2 est tronqué, il ne contient qu'environ 2/3 des lignes du fichier1...

J'avoue ne pas trop voir d'où cela peut venir, donc si vous avez des idées, je suis preneur

script1

Code :

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

1
2
3
4
my $fichier1 = RTF::Writer->new_to_file("fichier1.rtf");
[...]
$fichier1->print("toto");
fichier1->close();

script2

Code :

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

1
2
3
4
5
6
7
8
9
open(FILE, "fichier1.rtf");
open(NEWFILE, ">fichier2.rtf");
while($ligne = <FILE>)
{
	$ligne =~ s/\\\_/-/g;
	print NEWFILE $ligne;
}
close(NEWFILE);
close(FILE);

[Gardyen]

apparemment

Code :

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

$fichier1->close();

n'est pas suffisant, il faut rajouter un

Code :

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

undef $fichier1;

avant d'attaquer le 2e script.
dans le cas des 2 scripts séparés, toutes les ressources étaient libérées de toute manière à la fin du premier script, donc le problème ne se posait pas

[chalme]

Ca marche niquel
Merci beaucoup !!