# copy & paste to a file called searchmods.cgi use warnings; use strict; use CGI qw(header param); use HTML::Perlinfo::Modules; print header; my $qry = param('qry') || ""; if ($qry) { my $m = HTML::Perlinfo::Modules->new(); my $module = $m->print_modules( show_only => qr/$qry/i ); ($module) ? print $module: print 'No such modules found!'; } print <<EOD; Module search: <form action="searchmods.cgi" method="post"> <input type="text" name="qry" value="$qry"> <input type=submit name=submit value=submit> </form> EOD
In reply to Perl module search engine by jacques
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |