Discussion :

[rootdaoud]

bonsoir,

Pour tester si un url exist ds un file html, j'utilise la fonction suivante:

Code :

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

1
2
3
4
5
6
 
sub get_banners_links{
 if ($mech->content =~ /<a href=.(EmailDetail.aspx\?CampaignId=[0-9]*&OfferId=[0-9]*&CreativeId=[0-9]*).>\s*$_[0]\s*<\/a>/){
    push(@links,'http://desasimulation.tk/offers/'.$1);
      }
}

Et en passant a cette fonction une chaine telque: "<a href='EmailDetail.aspx?CampaignId=342874&OfferId=2183&CreativeId=9886'>*dmi*</a>" ,j'ai zero resultats.
En plus si j'utilise ds le if le o a la fin de l'expression :

Code :

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

1
2
 
if ($mech->content =~ /<a href=.(EmailDetail.aspx\?CampaignId=[0-9]*&OfferId=[0-9]*&CreativeId=[0-9]*).>\s*$_[0]\s*<\/a>/o

il parait qu' il interprete le $_[0] une seul fois.
Est ce que quelqu'un peut m 'aider a resoudre se probleme.
merci

[rootdaoud]

je reformule ma question:
est ce qu'il y a une fonction predefini en perl qui banalise les expression reguliere ds un variable.

[chostrama]

Je reformule ma question:
est ce qu'il y a une fonction predefini en perl qui banalise les expression reguliere ds un variable.

Pas sûr de bien comprendre ce que tu cherches, mais as-tu regardé du côté des opérateurs \Q et \E ? Dans une regex, ils désactive tous les caractères spéciaux.

exemple:

Code :

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

1
2
 
if ( $bbb =~ m/\Q$var\E/ ) { #etc.

[rootdaoud]

oui c'est exctement se que je voulais.
merci bien chostrama :