Bonjour.
Les textes à chercher sont répartis sur plusieurs lignes. Comme le
split sépare les lignes, on ne retrouve jamais à la fois
Aujourd et
VDM sur un morceau...
Une solution peut être de découper là où on trouve une ligne blanche (et utiliser l'option
/s pour une trecherche multi-ligne). J'ai également enlevé le
last pour avoir tous les textes.
# On récupère chaque ligne dans un tableau.
@ligne = split(/\n\s*\n/,$Pageweb);
# On parcours tout le tableau.
foreach (@ligne)
{
if(/(Aujourd.+VDM)/s) # Si la ligne contient Aujourd'hui suivi de 1 ou plusieurs caractères quelconque # suivi de VDM
{
$quote=$1; # On prend uniquement la partie de la ligne qui correspond à l'expression régulière.
print"\n$quote\n\n"; # Afficher $quote
#last;
}
}
Dernière modification par jojo_boulix (04-07-2013 13:10:52)