Discussion :

[moniphal]

Salut,

Je suis debutant en Perl, je veux definir une expression reguiliere en Perl mais je ne sais pas comment definir, par exemple, je veux definir une expression pour un hyper lien. donc il doit avoir plusieurs form.

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
 
Par exemple, mon httpAccess form sera :
httpAccess :
   http: //hostport [ / path ] [ ? search ]
hostport :
   host [ : port ]
host :
   hostname
hostname :
   ([a-zA-Z])*
port :
   ([0-9])*
 
lien:
   <a href httpAccess

Je ne sais pas comment les definir en Perl syntax.

Merci de vos aide,
moni

[djibril]

je comprends pas ce que tu veux faire!!!
de plus lis la faq, j'ai ecris une doc sur les regex!

[moniphal]

Oui, j'ai lu votre documents. Je veux prendre seulement les lien avec 'href' dans un fichier.
le lien peux avoir la forme :

Code :

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

<a href='http://......'></a>

ou bien

Code :

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

<a class='menu' href='./.....'></a>

Voici mon expression :

Code :

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

1
2
3
4
5
 
 
if ($line =~ /^\<a ([a-zA-Z]*=[a-zA-Z]*)* href/){
   print $line;
}

mais il ne marche pas, aucune lien est imprime !!!

Merci de corriger ma fautes dans mon expression

[djibril]

tu peux juste chercher les lignes possédant href

Code :

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

1
2
3
4
 
if ($line =~ /href=/){ 
   print $line; 
}

[jejeman]

Je n'ai pas tout compris, mais voilà la solution de ce que j'ai compris.
Tu veux récupérer le lien pointé par un href :

Code :

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

1
2
3
4
 
if ($line =~ /href='([^']+)'/) {
   print $line;
}

Et tu retrouves le lien dans $1
Je pense que ca doit marcher....

Jérôme

[moniphal]

Si je veux seulement prendre URL dans href, par exemple, le lien est :

Code :

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

1
2
 
<a href='http://<a href="http://www.developpez.net/forums&#39;>forum</a>" target="_blank">www.developpez.net/forums'>forum</a></a>

Et je veux prendre seulement URL : http://www.developpez.net/forums ????
Quel sera mon expression reguliere???

Merci
moniphal

[pekka77]

jejeman vient tout juste de te dire la réponse. A mon avis elle fonctionne sans pb!

[djibril]

Code :

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

1
2
3
4
5
 
 
if ($line =~ /href='([^']+)'/) { 
   print $1; 
}

[moniphal]

Merci beaucoup, cela marche bien

Mais, si je fais avec :

Code :

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

1
2
3
4
5
 
      if ($line =~ /href="([^']+)"|href='([^']+)'/) {
                      print $1 "\n";
                      print OUT $line;
      }

je veux qu'il match avec href="..." ou href='...' , et bien il marche mais il y a erreur avec print $1 (excuse,.. je ne sais pas comment modifier cela pour qu'il marche ).

[Jedai]

Code :

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

1
2
3
4
5
 
      if ($line =~ /href=["']([^"']+)["']/) {
                      print $1 "\n";
                      print OUT $line;
      }

--
Jedaï

[djibril]

si c'est ok (normalement ça devrait etre le cas) un tag resolu!!!

[Shixz]

J'avais le même problème
Merci beaucoup