Prog perl
miss_info
Messages postés
106
Date d'inscription
Statut
Membre
Dernière intervention
-
miss_info Messages postés 106 Date d'inscription Statut Membre Dernière intervention -
miss_info Messages postés 106 Date d'inscription Statut Membre Dernière intervention -
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