view release on metacpan or  search on metacpan

eg/cgi_search.pl  view on Meta::CPAN

#!/usr/bin/perl
#$Id: cgi_search.pl,v 1.5 1999/04/26 12:14:31 maxim Exp $
# Quick and dirty cgi-script to search a website.
# (Root dir must have been indexed using html_indexer.pl)

my $dbname = '.search.db';
BEGIN { print "content-type: text/html\n\n"; }

my $query_string = $ENV{QUERY_STRING};

if ( $query_string !~ /\S/ ) {
	print_search_page();
} else {
	require MMM::Text::Search;	
	$query_string =~ s/.*?=//;
	$query_string =~ s/\+/ /g;	
	$query_string =~ s/%(..)/pack("c",hex($1))/ge;