Discussion :

[Olivier57]

Bonjour à tous,
Je suis en train d'écrire un script Perl/CGI. Dans celui-ci j'aimerai inclure le contenu d'un fichier HTML présent sur le web.
J'arrive à inclure un fichier en local avec la commande open, mais lorsque je mets dans open(FIC,"http://blablabla/monfichier.html"), ca ne marche pas.
alors que open(FIC, "/path/monfichier.html") marche trés bien.
J'ai alors cherché une commande de type include. Mais je n'ai trouvé que des include en shtml.
Une idée?
Merci d'avance

[Jedai]

A priori, soit tu utilises une frame (ce que je ne te recommanderai pas...), soit tu essaies de voir si les modules LWP sont disponibles sur ton serveur (j'en doute, mais ça vaut le coup d'essayer). Vérifie aussi s'il n'y a pas moyen de faire autrement (en rapatriant la page à inclure par exemple).

--
Jedaï

[Olivier57]

Pour la trame j'y avais pensé, mais non c'est mal géré par les explorateurs je trouve.
Sinon je n'ai pas le module LWP installé sur le serveur
Ca doit pourtant pas etre dur, doit y avoir une astuce, je veux juste récuperer le code source html d'une page. En Java, ca prend 2lignes , en Perl ca devrait en prendre qu'une, mais je trouve rien

[Jedai]

Je ne pense pas que ça soit si facile que ça en Java, du moins du côté serveur... (bien sûr le html que tu veux ne se trouve pas sur ton serveur ??)
Sinon, est-ce que tu as les modules Net::* ?

(tu pourrais peut-être essayer de faire ça avec du Javascript, non ?)
--
Jedaï

[Olivier57]

Les fichiers ne se trouvent pas sur le serveur hélas
J'ai les modules Net.
Il me faut juste l'équivalent du include en php mais pour un cgi en perl.

[Jedai]

Bon, étrange que tu ais les module Net mais pas LWP..., apprête toi à souffrir, voici un exemple en provenance directe de Net::HTTP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 use Net::HTTP;
 my $s = Net::HTTP->new(Host => "www.perl.com) || die $@;
 $s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
 my($code, $mess, %h) = $s->read_response_headers;
 
 while (1) {
    my $buf;
    my $n = $s->read_entity_body($buf, 1024);
    die "read failed: $!" unless defined $n;
    last unless $n;
    print $buf;
 }

Et encore, tu as de la chance, tu n'es pas obligé de te débrouiller avec les sockets...
Teste donc ceci (avec les modifications qui s'imposent bien sûr).
Quand je pense que tu fait la même chose en une ligne avec LWP !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  use LWP::Simple;
  $doc = get 'http://www.linpro.no/lwp/';

--
Jedaï

[Olivier57]

Je te remercie
Je fais les tests et je te dis les résultats.

[Olivier57]

Bon j'ai fait mon feignant
J'ai demandé à l'admin systeme si je pouvais installer LWP
Hop en 2lignes c'était réglé
Merci beaucoup !