Perl

Urgent ! Appel d'une page html en perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Urgent ! Appel d'une page html en perl

ktiana

Salut !
Je suis en train de traiter un formulaire en Perl. J'ai besoin de faire appel à un page HTML, l'équivalent d'un "require" en php. Quelqu'un sait comment le faire en Perl. 9a a l'air simple mais je n'arrive pas à trouver.
Merci d'avance.

Publicité

anapajari

s/travail/glanding on hfr/gs;

Bin tu ouvres ton fichier, tu le lis et tu l'affiches ... ou alors j'ai pas compris ta question [:gratgrat]

Message cité 1 fois

---------------
Software and cathedrals are much the same - first we build them, then we pray.

ktiana

anapajari a écrit :

Bin tu ouvres ton fichier, tu le lis et tu l'affiches ... ou alors j'ai pas compris ta question [:gratgrat]

En fait je te donne un exemple en php :

if (isset $_POST[zones] {
require ('imagerie.html');
}

Donc, en gros si la condition est vérifiée, j'accède à la page imagerie.html.
Je veux faire la même chose mais en Perl.

anapajari

s/travail/glanding on hfr/gs;

alors c'est bien ce que j'avais compris.
Il n'existe pas d'instruction identique, mais encore une fois ça revient a ouvrir un fichier, le lire et l'afficher.

Qu'est ce que tu n'arrives pas a faire exactement?

Message cité 1 fois

---------------
Software and cathedrals are much the same - first we build them, then we pray.

ktiana

anapajari a écrit :

J'ai trouvé le module LWP sur un site. Je l'ai utilisé et j'ai fait un print de la page. ça marche mais si tu as une autre méthode, je veux bien parce que ça m'affiche bien la page mais sans les images et sans appliquer la feuille de style css définie dedans. Mon code donne ça :

#!/usr/bin/perl
use CGI;
use LWP::Simple;

$html=new CGI;

$zone=$html->param('zone');

if ($zone ne " " ){
$content = get('http://projetwwwprod/choix_imagerie.html');
print $html->header;
print $content;
}

Qu'est ce que t'en penses ?

Toxin

Carpe ★★ Vitam

Je cherche à faire quelque chose de similaire mais je ne vois pas très bien par où commencer.

En fait je voudrais parser une contenu d'une page html comme je parserais un fichier.

---------------
"If you can walk away from a landing, it's a good landing. If you use the airplane the next day, it's an outstanding landing." - Chuck Yeager. | Chaîne YT | Photos

gilou

Modérateur
Modosaurus Rex

Et que veux tu parser exactement?
LWP , c'est tres bien.
Je copie un bout de code qui devrait te donner des idées sur comment on peut proceder

Code :

.......................
# web management packages
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Status;
use URI::Heuristic;
.................................
my $connection_address = "http://test.perlscript.org";
my $connection_agent = "Testing-Perl-Script/v1.0";
my $http_engine = LWP::UserAgent->new();
$http_engine->agent($connection_agent);
$http_engine->timeout(50); # As the servers are fast, this should be OK
.................................
my $raw_url = "http://ploumploumploum.com/index.html";
my $data;
my $result = fetch_url($raw_url,\$data);
### toxin_parse($data);
........................................................
############################################################
# $data is a reference
############################################################
sub fetch_url {
my ($raw_url,$data) = @_;
my $url = URI::Heuristic::uf_urlstr($raw_url);
$| = 1; # to flush next line
my $request = new HTTP::Request(GET => $url);
$request->referer($connection_address); #global variable
my $response = $http_engine->request($request);
if ($response->code != RC_OK) {
$$data = $response->status_line;
return 0;
}
else {
$$data = $response->content;
return 1;
}
}

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

FORUM HardWare.fr

Programmation

Perl

Urgent ! Appel d'une page html en perl

Sujets relatifs
Question pour page type .php?id	base de donnée locale en interaction avec une page html
Lien vers une page web	Questions sur les servlet et netbean
Différence PHP html et Joomla	Problème css/html
Contenu dune page dans une autre !	[Servlet\|JSP] et mise à jour de la page
Comment faire un menu en Perl sans module externe ?
Plus de sujets relatifs à : Urgent ! Appel d'une page html en perl

Page générée en 0.062 secondes