Forum Programmation.web perl & php

Posté par  .
Étiquettes : aucune
0
1
juin
2006
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  (site web personnel) . É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)

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.