memo.xight.org

日々のメモ

chalowのはてなダイアリー検索プラグイン

ソース

### はてなダイアリーの検索へのリンク
# 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>);
}