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"; }