Excerpts from search result page

[Krishna Srinivasan]

Hi All,

I have written a website search script that returns all the pages that
match 100% with the search terms. I also want to include excerpts from
the returned result page with the search terms bolded (as Google does
below the title of the retuned page). Is there a ready Perl script
that does just this? Or will I have to write one myself. There seems
to be a thousand different cases on how the excerpt will contain the
search term(s).

Thanks in advance.

Krishna Srinivasan.

 

[news]

I also want to include excerpts from
the returned result page with the search terms bolded

The trivial case doesn't seem to be that hard to me.

I will assume you're producing HTML results, and that you've remembered
to strip all HTML from the search results themselves.

foreach my $summary (find_page_summaries(@search_terms)) {
my $re = '\b(' . join ('|', @search_terms) . ')\b';
$summary =~ s!$re!<b>$term</b>!g;
print "<p>$summary</p>\n";
}

Chris