perl & php - LinuxFr.org

pour faire un appel d'une page php dan sun script perl j'utilise les librairies suivantes
TTP::Request::Common;
use LWP;
use LWP::UserAgent;
use POSIX;
my $ua=LWP::UserAgent->new();
my $req = GET 'http://localhost/chemin/a/la/page';
my $content=$ua->request($req)->as_string;
print $content;
la page est bien chargé dans le browser sauf que en plus le header suivant apparait dans la page
HTTP/1.1 200 OK Connection: close Date: Thu, 01 Jun 2006 07:54:19 GMT Server: Apache/2.0.52 (Red Hat) Content-Length: 2560 Content-Type: text/html; charset=UTF-8 Client-Date: Thu, 01 Jun 2006 07:54:19 GMT Client-Peer: 127.0.0.1:80 Client-Response-Num: 1 Title: Create Account X-Powered-By: PHP/4.3.9
comment peut t-on caher cette entête
une reponse svp !!

# LES MANUELS C'EST PAS POUR LES CHIENS

Posté par -=[ silmaril ]=- (site web personnel) le 01 juin 2006 à 15:09. Évalué à 1.

Il ne fait que ce que tu lui demande hein faut pas deconner non plus:

* 'my $content=$ua->request($req)->as_string;'
Effectue la requete $req ($ua->request($req)) et transforme l'objet resultant
(un HTTP::Response en chaine (->as_string);

* 'print $content;'
Affiche cette chaine.

Déjà amha tu devrait stocker l'object HTTP::Response,
'my $r = $ua->request($req);'
analyser les codes de retours ($r->code(), $r->is_info, $r->is_success, $r->is_redirect, $r->is_error).

Ensuite si tu as besoin d'afficher le resultat utilise: $r->decoded_content()

http://search.cpan.org/~gaas/libwww-perl-5.803/lib/HTTP/Resp(...)

Autre chose pour executer du php tu n'est pas obliger de passer par un
serveur web, il existe une version ligne de commande de l'interpreteur php (sous debian et derivés: aptitude install php4-cli)