Probleme de réécriture

Kikoo, j'ai un problème avec l'écriture de fichier je télécharger un fichier pdf avec LWP , je l'écrit comme suit

Code:

---

1 2 3

open FILE, '>temp.pdf' or die "temp.pdf : $!\n"; print FILE "$pdf"; close FILE;

---

pour pouvoir l'exploiter seulement cela ne marche que partiellement le fichier n'etant pas complet a la récriture

voici mon script

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl -w use LWP::Simple;   $pdf = get("http://*************/e.pdf");   open FILE, '>temp.pdf' or die "temp.pdf : $!\n"; print FILE "$pdf"; close FILE;   my @reponse = `pdftotext.exe -f 1 -layout -raw -nopgbrk -enc UTF-8 temp.pdf`;   print "@reponse\n";

---

Merci de votre aide

Bonjour

Chez moi :

Code:

---

1 2 3 4 5 6

use LWP::Simple; my $pdf = get(http://********/e.pdf"); open (FIC, ">f.pdf"); print FIC "$pdf"; close (FIC);

---

me donne un fichier f.pdf semblable en tout point à e.pdf !!

Le problème peut venir de ta commande systéme "pdftotext" ? As-tu testé avant de passer ton "temp.pdf" dans "pdftotext" ?

J'oubliais je suis sous windows.

J'ai testé ta soluce

Code:

---

1 2 3 4 5

use LWP::Simple; my $pdf = get("http://www.123multimedia.com/docs/CP_123MM-Manson.pdf"); open (FIC, ">f.pdf"); print FIC "$pdf"; close (FIC);

---

Mais le fichier pdf écrit n'est pas valide , acrobat ne veut pas le lire :?

Quand tu es sous Windows, tu dois te méfier du mode texte, en effet si tu écris dans un fichier en mode texte (mode par défaut, et je précise que le problème n'est pas spécifique à Perl) des données binaires, elles seront corrompues. Aussi il faut utiliser la fonction binmode(), si ça ne suffit pas, vérifie également que LWP ne propose pas une option pour transférer en mode binaire.

--
Jedaï