Help for this page

Select Code to Download


  1. or download this
    foreach ($a, $b, $c) {
   next unless /abcdefgh/;
   ...
   last;
}
  2. or download this
    if (grep /abcdefgh/, $a, $b, $c) {
   ...
}
  3. or download this
    use List::MoreUtils qw( any );

if (any { /abcdefgh/ } $a, $b, $c) {
   ...
}