Urgent ! Appel d'une page html en perl

Marsh Posté le 20-05-2008 à 08:55:43

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.

Reply

Marsh Posté le 20-05-2008 à 08:55:43

Reply

Marsh Posté le 20-05-2008 à 09:46:42

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.

Reply

Marsh Posté le 20-05-2008 à 10:10:48

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.

Reply

Marsh Posté le 20-05-2008 à 10:35:12

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.

Reply

Marsh Posté le 20-05-2008 à 10:58:15

anapajari a écrit :

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?

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 ?

Reply

Marsh Posté le 20-05-2008 à 11:40:32

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

Reply

Marsh Posté le 21-05-2008 à 13:40:22

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! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Reply

Urgent ! Appel d'une page html en perl

Sujets relatifs:

Leave a Replay