Discussion :

[moniphal]

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 :

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

 LWP::Simple

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

Code :

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

$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

[djibril]

Code :

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

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

[Jedai]

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

--
Jedaï

[djibril]

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

[moniphal]

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

Code :

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

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 :

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

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 :

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

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