Prog perl
miss_info
Messages postés
112
Statut
Membre
-
miss_info Messages postés 112 Statut Membre -
miss_info Messages postés 112 Statut Membre -
Bonjour,
j'ai un projet de realisation d'un prog en langage perl, dont qu'on je fais entrer un site, il m'affiche seulement les liens qui sont a l'intérieur de ce site. svp si il y a quelqu'un qui me comprend, aidez moi svp. c urgent pr moi
merci bien
j'ai un projet de realisation d'un prog en langage perl, dont qu'on je fais entrer un site, il m'affiche seulement les liens qui sont a l'intérieur de ce site. svp si il y a quelqu'un qui me comprend, aidez moi svp. c urgent pr moi
merci bien
A voir également:
- Prog perl
- Robot prog - Télécharger - Édition & Programmation
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- Clear prog - Télécharger - Sécurité
- Prog dvb - Télécharger - Télévision
1 réponse
Salut, tu veux sûrement dire qu'il doit repérer toutes les balises de liens par exemple? Et ensuite t'afficher tout ce qu'il a trouvé? En Perl, tu dois utiliser les expressions régulières, et faire du parsing de la page.
1) Tu dois récuperer la page web en question, image que tu veux voir www.google.com
Utilisons la lib LWP
$connexion = LWP::UserAgent->new();
$page = $connexion->get("https://www.google.com/?gws_rd=ssl");
$document = $page->content;
2) Voilà, tu as la page. Maintenant, pour repérer les liens, j'ai trouvé cette expression régulière. Ca a l'air vachement balèze!!!
while ($document =~ m/href\s*=\s*"([^"\s]+)"/gi) {
my $absolute_url = absolutize($1, "https://www.google.com/?gws_rd=ssl");
print $absolute_url;
}
Essaie ça, je suis pas un pro du Perl, mais ça devrait marcher, ça peut te donner une piste!
1) Tu dois récuperer la page web en question, image que tu veux voir www.google.com
Utilisons la lib LWP
$connexion = LWP::UserAgent->new();
$page = $connexion->get("https://www.google.com/?gws_rd=ssl");
$document = $page->content;
2) Voilà, tu as la page. Maintenant, pour repérer les liens, j'ai trouvé cette expression régulière. Ca a l'air vachement balèze!!!
while ($document =~ m/href\s*=\s*"([^"\s]+)"/gi) {
my $absolute_url = absolutize($1, "https://www.google.com/?gws_rd=ssl");
print $absolute_url;
}
Essaie ça, je suis pas un pro du Perl, mais ça devrait marcher, ça peut te donner une piste!
merci encore