Wala::get_searchlinks

Wrote a simple function for Wala.pm which takes a WikiWord and turns it into a set of search engine links. So, for example, on the ThomasMerton page, users should see a floating <div> with links like these:

my $output;
my @searchlinks = Wala::get_searchlinks( "ThomasMerton" );
foreach my $searchlink (@searchlinks) {
    $output .= $searchlink; 
    $output .= "<br />\n";
}

return $output;

(Edit, September 2016: This code doesn't work any more, so I don't have it running.)

I added this little fragment to today's update because I wanted to see if I could use the function in a piece of embedded Perl. It turned out to work, which shouldn't surprise me but usually still does.

p1k3 / 2004 / 7 / 31 / searchlinks