Bonjours ,j'ai cherché sur internet des tutos sur les expressions réguliere j'ai trouvé mais rien de très précis. Je faisais un code qui allait sur une page web (avec LWP::Simple) ensuite je voulais chercher dans la source de la page un mot exacte. Je vous montre mon code :
Mais je n'ai aucun résultat je ne vois vraiment pas comment y arriver :s.
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 #!usr/bin/perl use LWP::Simple; print"\n[+]Cherche la chaine...\n";sleep(1); my $url="http://monsite.com/page.php"; my $result=get($url) or die"[+]Une erreur est survenue..."; if ($result=~ /Im_g100.gif\b/) { my $code="0896378"; } if ($result=~ /Im_g120.gif\b/) { my $code="1113879"; } if ($result=~ /Im_g25.gif\b/) { my $code="4693478"; } if ($result=~ /Im_g40.gif\b/) { my $code="4963578"; } if ($result=~ /Im_g45.gif\b/) { my $code="7924819"; } if ($result=~ /Im_g75.gif\b/) { my $code="9965782"; } print"$code";
Partager