Code identique, résultats différents
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:
1 2 3 4
| my $fichier1 = RTF::Writer->new_to_file("fichier1.rtf");
[...]
$fichier1->print("toto");
fichier1->close(); |
script2
Code:
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); |