Discussion :

[caramon _majere]

Bonjour,

je testais un bout de code vu sur un internet sur des exemples d'utilisations de GREP.
Plateform cygwin perl v 5.22

Sur le code suivant avec les {} pour le bloque de GREP j'ai une erreur

Code :

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

1
2
3
4
5
6
7
8
my $match = 'A';
 
my @array = qw(Anthony Mark Alex A);
if ( my @list = grep { /$match/,@array } ) {
   print "Matched: @list\n";
} else {
	say "No match";
	}

Résultat:
syntax error at test.pl line 10, near "} ) "
Execution of test.pl aborted due to compilation errors.

En remplaçant les {} par () ca fonctionne.

Code :

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

1
2
3
4
5
6
7
8
my $match = 'A';
 
my @array = qw(Anthony Mark Alex A);
if ( my @list = grep ( /$match/,@array ) ) {
   print "Matched: @list\n";
} else {
	say "No match";
	}

Résultat:
Matched: Anthony Alex A

C'est bon à savoir mais quelqu'un sait il la raison ? GREP imbriqué dans un IF ou juste imbriqué ? Histoire d'éviter des surprises dans le futur.
Car sur le perldoc c'est bien stipulé que les parenthèse ou crochet, c'est équivalent.

Merci

[Lolo78]

Bonjour,

tu as une erreur de syntaxe sur cette ligne:

Code :

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

1
2
 
if ( my @list = grep { /$match/,@array } ) {

Il faudrait avoir:

Code :

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

1
2
 
if ( my @list = grep { /$match/ } @array ) {

Dans cette forme syntaxique (bloc de code et liste), grep prend deux arguments, un bloc de code (le "filtre") et un tableau. Il faut donc fermer le bloc de code après le /match/ et avant le tableau.

Dans ton deuxième exemple, ça marche un peu par un heureux hasard parce que tu utilises en fait la seconde forme syntaxique du grep, celle avec une expression (expression, virgule, liste). Dans ton second exemple, les parenthèses ne sont en fait pas nécessaires et ceci marcherait aussi bien:

Code :

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

1
2
 
if ( my @list = grep /$match/, @array  ) {

Un peu de lecture sur grep, map, etc: http://laurent-rosenfeld.developpez....ateurs-listes/

[caramon _majere]

Merci Lolo,

je me suis fait piéger par "heureux hasard".

Pourtant je le lis de temps en temp ton document sur la programmation fonctionnelle