Discussion :

[Eric5959]

bonjour,
je cherche à faire une regex pour un script perl.
je dois recherche dans des fichiers texte le motif suivant:
http://www.google.fr
ou
http://www.mail.google.fr

les lignes du fichier ressemble à cela:
192.1.1.1 - - [04/Jul/2009:23:14:00 +0200] "GET http://customercard.decathlon.fr/net...p/tab_left.gif HTTP/1.1" 0 788" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"

je dois rechercher tout ce qui est entre http et le premier /

comment faire la regex svp ?

j'ai fait quelques tests et suit arrivé au résultat suivant mais ça ne fonctionne pas.

Code :

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

1
2
 
if ($ligne =~ m/.*GET (http:\/\/[.*].).*)/;

merci de votre mais c'est assez urgent.
cdlt

[djibril]

Entre ce que tu dis et ton exemple, ce n'est pas clair . Ton est de récupérer toutes les urls de ton fichier ?

[s.n.a.f.u]

Je suis pas sûr de répondre à la question, mais la regex ne semble pas si ardue :

Code :

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

1
2
3
4
5
#!/usr/bin/perl
 
my $str = '192.1.1.1 - - [04/Jul/2009:23:14:00 +0200] "GET http://customercard.decathlon.fr/netcard/include/images/signup/tab_left.gif HTTP/1.1" 0 788" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"';
 
print $1 if ($str =~ m#^.*GET (http://[^/\s]+)#);

[Eric5959]

bonjour,
oui je dois récupérer toutes les url, google était un exemple
et j'ai mis une ligne complète pour bien montrer le format de la ligne complète.
merci
cdlt

[Eric5959]

bonjour,
ça ne marche pas j'ai toujours un message
j'avais déjà ce message avant parce que ça ne match pas

Unmatched ( in regex; marked by <-- HERE in m/^.*GET ( <-- HERE http:/ at D:\test\fichier.pl

merci

[djibril]

Il existe déjà des modules propres te proposant des regex efficaces.
Installe le module Regexp::Common

Pour l'utiliser dans ton script, tu fais ceci :

Code :

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

1
2
3
4
5
use Regexp::Common qw /URI/;
 
my $regex_url = $RE{URI}{HTTP};
my @urls = $str =~ m{($regex_url)}g;
print "Mes urls : @urls\n";

[Eric5959]

bonjour,
en revanche je ne sais pas comment installer regexp::common
j'ai téléchargé un tar.gz mais où j'installe ça ?
désolé mais je débute !
cdlt

[djibril]

http://perl.developpez.com/faq/perl/?page=sectionC32