Old school smartmatch
1234567891011121314151617181920
use feature 'say';
use Carp;
my $get_value_q121 = 1;
my $get_value_q122 = 2;
if ( $get_value_q121 == 1 && grep { $_ == $get_value_q122 } qw( gérard 2 )) {
say "grep - ok trouvé";
}
if ( $get_value_q121 == 1 && not grep { $_ == $get_value_q122 } qw( gérard 2 )) {
# On ne passe pas là
carp "I crashed";
}
if ( $get_value_q121 == 1 && not grep { $_ == $get_value_q122 } qw( gérard 5 )) {
carp "La valeur n'a pas été trouvée";
}
Perl
INFO