Help for this page

Select Code to Download


  1. or download this
    my $match = 1;
    foreach ($var_a, $var_b, $var_c) {
    ...
    if ($match) {
       ...
    }
    
  2. or download this
    if ((grep /abcdefgh/, $var_a, $var_b, $var_c) == 3) {
       ...
    }
    
  3. or download this
    use List::MoreUtils qw( all );
    
    if (all { /abcdefgh/ } $var_a, $var_b, $var_c) {
       ...
    }