Tester si une variable contient une regex valide

Version imprimable

Bonsoir.

Comment peut-on tester si une variable contient une expression régulière bien formée (c'est à dire ne produisant pas d'erreur à l'évaluation) ?

Je passe une regex en argument de ligne de commande. Tout marche bien mais je voudrais pouvoir gérer les erreurs moi-même quand l'expression n'est pas valide (éviter l'arrêt du script, afficher un message à moi...).

Voilà le code (simplifié).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 #!/usr/bin/perl -w use strict; die "Aaargs!!\n" if (! defined $ARGV[1]) ; my $path = shift; my $regex = shift; opendir DIR, $path or die "Can't open $path : $!\n"; my @filelist = map {$path . '/' . $_} grep { -f "$path/$_" && /$regex/} readdir DIR; #map {print "$_\n"} @filelist;
Pour le test j'ai essayé des solutions du genre
Code:

1 2 ... if (!defined(eval('$regex =~ '."/$regex/"))); ... if (!defined(eval("/$regex/")));
mais j'obtiens systématiquement

Code:

Use of uninitialized value in pattern match (m//) at (eval 1) line 1.

D'où la question: comment évaluer la syntaxe d'une regex ?

Merci d'avance.

Tu devrais déjà tester si la regex est bien définie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl -w
use strict;
die "Aaargs!!\n" if (! defined $ARGV[1]) ;
my $path = shift;
my $regex = shift;
defined $regex
  or die usage();
 
{
  no warnings;
  eval '$path =~ m/$regex/';
  if( $@ ) {
    die "Your regex doesn't seem valid : $@.";
  }
}
 
opendir DIR, $path    
    or die "Can't open $path : $!\n"; 
 
my @filelist = map {$path . '/' . $_} 
                    grep { -f "$path/$_" && /$regex/} 
                        readdir DIR;
 
sub usage {
  return <<EOU
Usage : $0 path regex
EOU
}

(NB : Si c'est pour un "petit" script jetable, je me contenterais de laisser Perl avertir l'utilisateur du fait que la regex a un problème, par contre je vérifierais bien qu'effectivement l'utilisateur a entré une regex)

--
Jedaï

09/08/2007, 12h52
iblis
Merci, maître Jedaï. C'est exactement ce que je cherchais :
Citation:
Code:

1 2 3 4 5 6 7 { no warnings; eval '$path =~ m/$regex/'; if( $@ ) { die "Your regex doesn't seem valid : $@."; } }
Toutefois, il semble que le test laisse passer des erreurs possibles (pardon, des avertsissements):
Code:

1 2 $ img2pdf.test.0 . "\y" Unrecognized escape \y passed through in regex; marked by <-- HERE in m/\y <-- HERE / at img2pdf.test.0 line 25.
Bien sûr si on n'utilise pas les warnings, alors pas de problème. Existe-il un moyen de contourner le problème ?
Sinon, je passe en résolu.

NB En fait, j'avais déjà testé que l'utilisateur a bien entré une regex (test sur @ARGV).
09/08/2007, 14h35
Jedai
Ce sont des warnings, pas de véritables erreurs, désactive les warnings localement si ça te gène (note bien que les warnings sont envoyés sur la sortie d'erreur et ne perturbe pas le déroulement du programme, je serais toi je les laisserais) :
Code:

1 2 3 my @filelist = map {$path . '/' . $_} grep { no warnings; -f "$path/$_" && /$regex/} readdir DIR;
--
Jedaï
09/08/2007, 15h49
iblis
Merci encore, très clair (comme toujours ;))

PS En fait, après ton dernier post, j'avais pensé à mettre un no warnings dans le bloc grep mais mon compilateur n'aime pas trop ça :
Code:

1 2 i-blis:~/scripts ofya$ perl img2pdf.test.0 . "\y" Unrecognized escape \y passed through in regex; marked by <-- HERE in m/\y <-- HERE / at img2pdf.test.0 line 25.
09/08/2007, 19h40
Jedai
Tu ne m'as pas mis le bon message d'erreur. Le problème semble être que le bloc de grep n'est pas du point de vue de Perl un véritable bloc mais plutôt une pseudo-expression... Il faudra donc mettre le no warnings plus à l'extérieur :
Code:

1 2 3 4 5 6 my @filelist = do { no warnings; map {$path . '/' . $_} grep { -f "$path/$_" && /$regex/} readdir DIR; };
--
Jedaï
10/08/2007, 00h04
iblis

Oups, pardon. Je donne le message d'erreur pour que tout le monde comprenne: le bloc de grep est bel et bien traité comme une (pseudo-)expression.

Code:

"no" not allowed in expression at img2pdf.test.0 line 27, at end of line BEGIN not safe after errors--compilation aborted at img2pdf.test.0 line 27.

Pour y remédier j'avais mis le no warnings avant l'assignation de variable. Je ne connaissais pas l'écriture avec do, bien plus élégante.