Prendre la page qui correspond au URL fournit

Version imprimable

28/09/2005, 16h11
moniphal

Prendre la page qui correspond au URL fournit

Salut a tous, (excuse-moi, mon clavier ne suppor pas les accents francais, je vais le changer bientot)

Je suis d'ebute du PERL, avec mon programme, je prendre une URL et level comme arguments et avec le URL fournit , je vais prendre la page correspondant.

J'utilise le modules :

Code:

LWP::Simple

et j'obtien le contenue de la page correspondant en appelant la methode get() :

Code:

$content = get( $url ) or die "Ne peux pas prendre la page$!";

Je veux traverse le contenu de la page obtenu et imprimer tous les liens mais je ne sais pas comment faire cela,
si avec une fichier, je peux l'ouvrir, prendre chaque ligne et comparer avec une expression reguliere.

J'apprecie votre aide,
moniphal
28/09/2005, 16h38
djibril
Code:

1 2 3 4 open (RECUP, ">toto.html") || die "impossible de creer le fichier $!"; print RECUP $content; close (RECUP);
tu met le contenu de ta page dans un fichier toto.html par exemple.
simple comme bonjour :lol:
28/09/2005, 17h49
Jedai

Utilise le module Link::Extor, trouver les adresses sur une page est parfois extrèmement difficile avec des regexs simples.

--
Jedaï
28/09/2005, 17h56
djibril

Citation:

Envoyé par Jedai

Utilise le module Link::Extor, trouver les adresses sur une page est parfois extrèmement difficile avec des regexs simples.

--
Jedaï

moduel à connaitre, on sait jamais :lol:

Oui, Perl est tres puissance avec ces modules.
J'essai de definir les expressions reguliere, je veux definir une url comme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
$httpAccess = ~/<a href="http:\/\//;
$ftp = ~/ftp:\/\//;
$link = ~/$httpAccess|$ftp/;
 
open (FILE, $tmpFile) || die "Can't open file $file !";
 
while(<FILE>)
{
  chomp;
  next if /^\<!--/;   # next line if comment, use ~ before epx. for focus on $line only
  print if /^$link/;
}

Le message erreur :

Code:

1
2
3
4
5
 
 
Use of uninitialized value in pattern match (m//) at ./site.pl line 64.
Use of uninitialized value in pattern match (m//) at ./site.pl line 65.
Use of uninitialized value in pattern match (m//) at ./site.pl line 66.

Lignes 64,65,66 correspond a :

Code:

1
2
3
4
 
$httpAccess = ~/<a href="http:\/\//;
$ftp = ~/ftp:\/\//;
$link = ~/$httpAccess|$ftp/;