古い記事
ランダムジャンプ
新しい記事
Yahoo!検索のリニューアル[2005-10-03-1]をきっかけに、chalow用Yahoo!
検索プラグインを作成しました。下記のコードを cl.conf にコピペし、
ChangeLogには{{ys('どじょう')}}などと記述します。
### Yahoo! キーワード検索 URL 作成
# usage: {{ys('海老名 映画館')}}
sub ys {
    my ($k) = @_;
    my $o = $k;
    $k =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
    $k =~ s/\s/+/g;
    return qq(<a 
      href="http://search.yahoo.co.jp/search?ei=EUC-JP&p=$k">$o</a>);
}

メモ:検索用URLは以下のようになっているので、p の部分を置換すれば
OKなのです。
http://search.yahoo.co.jp/search?ei=UTF-8&p=%E8%90%8C
http://search.yahoo.co.jp/search?ei=EUC-JP&p=%CB%A8