ソース
### はてなダイアリーの検索へのリンク
# usage: {{hatena_search('hatena-ID','Keyword')}}
sub hatena_search {
my ($id,$keyword) = @_;
my $prefix = q(http://d.hatena.ne.jp);
my $enc = $keyword;
$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$enc =~ s/\s/+/g;
return qq(<a href="$prefix/$id/searchdiary?word=$enc" title="はてなダイアリー - $id - $keyword">$id - $keyword</a>);
}