Cyril - Mes astuces » regexps

Expressions régulières : combiner match et non-match

Cyril — Sun, 13 Jun 2010 20:12:05 +0000

Match et non-match…

En cette période de coupe du monde de football 2010, quoi de plus naturel que de parler de match ? … Hum.

Problématique

Mon problème aujourd’hui, c’est de sélectionner les listes qui contiennent une certaines expression régulière, mais pas une autre. Plus exactement, et pour faire dans les anglicismes, je cherche « foo.* », mais pas « foobar ».

La solution

Il faut utiliser la forme suivante : (?!regexp) pour choisir quelque chose qui ne match pas la regexp en question.

Mon exemple en pratique :

$ echo -e 'foo\nfoobar\nfoofighting' | grep -P 'foo(?!bar)'
foo
foofighting

Plus d’informations disponible avec perldoc perlre, en particulier le chapitre sur les expressions régulières étendues (Extended Patterns)

Expressions régulières : trouver un texte compris entre deux mots

Cyril — Fri, 05 Mar 2010 17:04:23 +0000

Problème

Lorsque l’on parse des fichiers, surtout les fichiers HTML, on a parfois besoin d’extraire un texte compris entre deux balises. Voici donc un moyen d’y parvenir avec les expressions régulières.

Considérations techniques

Je parlerais ici des expressions régulières perl (et par extension : grep -P et preg_* de php).

Par défaut, un /.*/ ou toute autre expression sera « gourmand » : ça matche tant que ça peut encore matcher. Par exemple, /a*/ appliqué à la chaîne "aaa" va matcher "aaa", et non pas "".

Dans mon cas pratique, j’ai une balise et j’en cherche le contenu. Donc si la regexp utilisée est /(.*)<\/td>/ alors je vais matcher ce qu’il y a entre mon td ouvrant, et le dernier td fermant.

La solution

La solution consiste à dire au moteur d’expression régulière de prendre le moins possible, et ça se code comme suit : /(.*?)<\/td>/.

Bibliographie : http://social.msdn.microsoft.com/Forums/en-US/regexp/thread/ab975ba5-31dd-4e6d-b72f-5cd6bf374b02 (et oui, parfois on trouve des choses utiles sur les forums de microsoft).

Vérifier qu’une adresse correspond à un bon nom de domaine

Cyril — Thu, 07 Aug 2008 14:04:28 +0000

Premier article: comment matcher un nom de domaine avec une expression régulière sur une adresse web, ou bien comment vérifier qu’une adresse web est bien celle d’un nom de domaine spécifié.

Alors voici l’expression régulière que je propose:

^https?://([^/]*\.)?\Qcyril.me\E(:\d+)?(\z|/)

Expications:

^ : permet de signifier que l’on commence au début de la chaine de caractères (on ne veut pas matcher une adresse du type (http://redir.org/?url=http://cyril.me/)
https? : on ne match que les protocoles web, soit http ou https
([^/]*\.)?\Qcyril.me\E : match toutes les possibilités de a.b.c.cyril.me, ou cyril.me tout court. L’important est qu’il n’y ai pas de ‘/’ avant le cyril.me. Attention: le but n’est pas de vérifier la conformité d’une adresse web ou du nom de domaine, car on part du principe que l’adresse est valide. Le \Q permet de rechercher ce qui suit sans en interpréter la signification (en l’occurrence, ça permet de ne pas interpréter le ‘.’ comme « n’importe quel caractère »). Le \E repasse en mode d’interprétation.
(:\d+)? : parfois, on est sur un port différent que le port standard, par exemple cyril.me:81 ou ou même sur le port normal cyril.me:80
(/|\z) : Soit tout ce qui précède est suivi par un ‘/’, puis suivent n’importent quels caractères qui ne nous intéressent pas, ou bien on match la fin de la chaine par \z.

Voici un petit code qui permet de tester cette expression régulière sur plusieurs adresses (cf aussi une page web pour faire des tests):

#!/usr/bin/perl
# Differentes regexps
@url = ("http://cyril.me:80/abc", "http://cyril.me/abc", "https://www.cyril.me/abc", "http://cyril.me", "https://wwwcyril.me/abc", "http://www.cyril.mercredi/");
# l’expression reguliere (attention aux echappements)
$r = "^https?://([^/]+\\.)?cyril.me(:\\d+)?(/|\\z)";
foreach my $u (@url) {
if($u =~ /$r/i) {
print "$u matches\n";
}
else {
print "$u not matches\n";
}
}