Récupération de chaines page Web

**Monticule** · 15/04/2009, 09h47

Bonjour à tous,

Je débute en PERL (2 semaines).

J'ai fait un petit script (perl + Mech), pour me logguer sur un forum (le mien).
Il fonctionne bien, mais j'ai une petite difficulté qui est la suivante :

Je cherche dans une page une chaine de caractères.
Si dans cette page se trouve ces caractères, alors j'affiche "chaines trouvée", et sur ça, pas de soucis.

Et ce que je voudrais faire, c'est afficher les liens Internet qui sont composés des ces caractères, et je n'y arrive pas.
J'ai vu du coté de _extract_link(); mais je ne comprends pas la syntaxe.

Voici mon script, qui vous aidera peut-être:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl -w 
 
use strict;
 
use WWW::Mechanize;
use HTML::Form;
 
 
 
my $bot = WWW::Mechanize->new(autocheck => 1); 
WWW::Mechanize->new( cookie_jar => undef ); 
 
my $link = $bot->get( 'http://www.**/' );
 
my $form = $bot->form_with_fields(('UserName','PassWord')); 
 
$bot->field( UserName => '*' ); 
$bot->field( PassWord => '*' ); 
$bot->click(); 
 
$bot->get('http://www.****');
 
my $search = $bot->content();
 
	if ($search =~/***/ || $search =~/*/ || $search =~/*****/ || $search =~/*****/) {
 
	print "Chaines trouvees\n";
 
}
 
 
$bot->get('http://www.**************');
 
my $test = bot->content();
 
$bot->_extract_links('***********');