Smartmatch
123456789101112131415161718192021
use feature 'say';
use experimental 'smartmatch';
use Carp;
my $get_value_q121 = 1;
my $get_value_q122 = 2;
# Cherche si $get_value_q122 est égal à 2 ou à "gérard"
if ( $get_value_q121 == 1 && ( $get_value_q122 ~~ [ 2, "gérard" ] )) {
say "smartmatch - ok trouvé";
}
if ( $get_value_q121 == 1 && ( not $get_value_q122 ~~ [ 1, 2 ] )) {
# On ne passe pas par là
carp "I crashed";
}
# Signifie "$get_value_q122 n'est ni égal à 3, ni égal à 4"
if ( $get_value_q121 == 1 && ( not $get_value_q122 ~~ [ 3, 4 ] )) {
carp "La valeur n'a pas été trouvée";
}
Perl
INFO