Il manque un " avant le https dans l'exemple, sinon le html est faux.
Code :
#!/usr/bin/perl use strict; use warnings; my $text = '<HTML><HEAD><META URL="https://196.214.79.38"/></HEAD><BODY> Click here </BODY></HTML>'; print $ 1 if ($text =~ m{\ s+url\ s*=\ s* "https?://(\d{1,3}(\.\d{1,3}){3})"}i );
|
\d{1,3}(\.\d{1,3}){3} qui se décompose en
\d{1,3} de un a trois chiffres
(...){3} suivi de trois fois
\.\d{1,3} un point suivi de de un a trois chiffres
et on matche ça m{} (plutôt que m// ou //, parce qu'on a des // dans l'expression régulière) dans un contexte ou on a du blanc puis url puis = (éventuellement avec des espaces avant et apres le = ) puis " puis http ou https puis ://, avant, et " après, le tout pas sensible à la casse (le i en fin de m{} )
A+,
Message édité par gilou le 03-10-2014 à 12:25:08
---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻
