Help for this page

Select Code to Download


  1. or download this
    my $vndr_key = (grep { $args->{desc} =~ m/$_/i } keys %vendors)[0];

...
} else {
  #do something else
}
  2. or download this
    my $vndr_key_count = grep { $args->{desc} =~ m/$_/i } keys %vendors;

...
} else {
  #do something else
}
  3. or download this
    my $re = join '|', keys %vendors;
my $vndr_key_found =  $args->{desc} =~ /$re/;
if($vndr_key_found) { ... } else { ... }