The Perl Basics You Need To Know Page 6

  #####################################################
  # Build_MatchMany_Function
  # -- Input:  list of patterns
  # -- Output: A code ref which matches its sh[0]
  #            against ANY of the patterns given in the
  #            "Input", efficiently.
  #
  sub Build_MatchMany_Function {
    my @R = @_;
    my  = join '||', map { "$_[0] =~ m/$R[sh]/o" } ( 0..0R );
    my  = eval "sub {  }";
    die "Failed in building regex @R: " if ;
    ;
  }


 Example usage: 
  @some_browsers = qw(Mozilla Lynx MSIE AmigaVoyager lwp libwww);
  =Build_MatchMany_Function(@some_browsers);
  
  while () {
    # ...
     = get_browser_field(sh);
    if ( ! &() ) {
      print STDERR "Unknown Browser: n";
    }
    # ...
  }


 In the next article I'll present a few other Perl basics directly related
to the mod_perl programming. 
References



 The book Mastering Regular Expressions by Jeffery Friedl.




 The book Programming Perl by L.Wall, T. Christiansen and
J.Orwant (also known as the Camel book, named after the camel picture
on the cover of the book). 



 The Exporter, perlre, perlvar,
perlmod and perlmodlib man pages. 


About the Author

Stas Bekman is an author of
the mod_perl Guide and
is currently co-athoring a book about mod_perl for
O’Reilly and Associates, Inc
 together with
Eric Cholet.
He is a member of the
Apache Software Foundation.
You can find more about his works and joys at his
personal Web site.