RegExp - Ne pas matcher si

Bonjour à tous,

J'écris un parseur de fichiers (ou depuis STDIN) PHP afin d'y extraire les fonctions utilisées pour enfin vérifier qu'elles ne sont pas obsolètes.
Donc le script est fonctionnel à ceci près qu'il matche toutes les fonctions, même celles définies par l'utilisateur (du coup pas moyen de vérifier en ligne si elles sont obsolètes...).
De plus je ne souhaite pas matcher les fonctions d'une classe tel que $this->function ou (...)->fonction.

Voici la regexp qui trouve toutes les fonctions :

Code:

---

my $regexp = '([\w]{4,})[\s]{0,}\(.*\)';

---

Dans un premier temps pour ne pas sélectionner les fonctions d'une classe, j'ai testé :

Code:

---

my $regexp = '((?!>)[\w]{4,})[\s]{0,}\(.*\)';

---

Alors je crois bien ne pas avoir bien saisi le fonctionnement de (?!), pourtant j'ai bien lu http://search.cpan.org/~rgarcia/perl-5.9.4/pod/perlretut.pod

J'ai réussi en trichant un peu, je matche ausi les signes - et > puis je procède à une 2ème vérification, càd :

Code:

---

1 2 3 4

my ($ff) = $_ =~ m/$regexp/i; if ( defined $ff && $ff !~ m/>/ ) { (...) }

---

Idem il faudrait que je ne matche pas quand la fonction est précédée de "function ".

Y a-t-il une solution en une seule regexp ?
Merci d'avance :)

En fait, je crois que tu t'es simplement trompé de "zero-width assertion" : au lieu de la look-ahead, il fallait sélectionner la look-behind (une fonction qui ne suit pas >) :

Code:

---

my $regexp = '(?<!>)([\w]{4,})[\s]{0,}\(.*\)';

---

ce qui forme un joli dessin : <!> :)

(j'ai aussi déplacé la parenthèse capturante, puisque l'assertion n'a pas lieu d'être capturée (et est de toute manière de taille zéro) ; il n'est cependant pas erroné d'incorporer l'assertion dans la capture, apriori).

Oui j'ai essayé cette forme, mais le résultat n'est pas le bon, il m'enlève le premier caractère.
Pour cette fonction : $this->GetMessage() il me retourne etMessage.

J'ai triché en matchant toutes les formes de fonction possibles :

• function funct()
• new func()
• $this->func()
• $self::funct()
• funct()

À l'aide de my $regexp = '((function |new |)[:\->\w]{4,})[\s]{0,}\(';.

Ensuite je fais le ménage tel que :

Code:

---

1 2 3 4 5 6 7 8 9

if ( $func =~ m/(^(function|new) |:|>)/ ) { # Discard function func_name() and new func_name() my (undef, $f) = split / /, $func; # Discard $this->func_name() (undef, $f) = split />/, $func if ! defined $f; # Discard $self::func_name() (undef, $f) = split /:/, $func if ! defined $f; $func = $f; }

---

En fait, il suffit d'introduire un autre "zero-width assertion" : \b (word boundary) :

Code:

---

my $regexp = qr/(?<!>)\b([\w]{4,})[\s]{0,}\(.*\)/;

---

J'en profite aussi pour utiliser l'opérateur qr de compilation de regexp.

Bien vu, merci Philou.

Voici le script pour ceux que ça intéresserait : php-deprecated.pl