Discussion :

[killuaster]

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 :

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";

Mais je n'ai aucun résultat je ne vois vraiment pas comment y arriver :s.

[Girzi]

salut, pourquoi met tu \b a chaque fois ?
Le bon code il me semble est

Code :

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

1
2
3
4
if ($result =~ /Im_g100.gif/)
 {
 my $code="0896378";
 }

[Woufeil]

Bonjour,

je te conseille de lire la FAQ sur ce sujet
Effectivement, je ne comprend pas pourquoi tu mets ton \b.

[killuaster]

Merci à vous je vais aller lire sa.

édit : j'ai tous lus , malgré sa je n'arrive toujours pas à récupérer la chaine de caractère dans le code source de la page.

[Girzi]

Salut,

si j'ai bien compris tu veut verifier dans le coder sorce d'une page s'il existe bien un mot que tu cherches.
Pour cela tu doit utiliser l'opérateur =~ avec une regex.

Voici un exemple que tu peux tester :

Code :

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

1
2
3
4
5
6
7
8
9
$a = "perl";
$b = "php";
 
if ($a =~ /perl/){
print "Perl\n";
}
if ($b =~ /perl/){
print "Perl2\n";
}

Tu comprends que Perl va s'afficher.


Sinon ton problème doit venir d'ici :

Code :

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

1
2
3
4
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...";

Remplace par

Code :

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

1
2
3
4
5
6
use LWP::Simple;
print"\n[+]Cherche la chaine...\n";sleep(1);
my $url="http://monsite.com/page.php";
$request = HTTP::Request->new(GET => "$url");
$res = $ua->request($request); 
$result = $res->content;

Et n'oublie pas la bonne synthaxe pour les comparaisons (vire le \b)
++

[killuaster]

Merci à toi c'est sympa .