Discussion :

[iblis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
... if (!defined(eval('$regex =~ '."/$regex/")));
... if (!defined(eval("/$regex/")));

mais j'obtiens systématiquement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[iblis]

Merci, maître Jedaï. C'est exactement ce que je cherchais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my @filelist = map {$path . '/' . $_} 
                    grep { no warnings; -f "$path/$_" && /$regex/} 
                        readdir DIR;

--
Jedaï

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my @filelist = do {
  no warnings;
  map {$path . '/' . $_} 
    grep { -f "$path/$_" && /$regex/} 
     readdir DIR;
};

--
Jedaï

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"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.