2003-08-29-5
■ プラグイン機能 [メモ]
プラグイン機能が登場!
「{」２つと「}」２つで囲むとプラグイン (関数) を呼び出すことができ
ます。あんまり多くのことはできませんが...。
例：(記号は全角で表記していますが、実際は半角)
{{google_search('海老名 映画館')}} → 海老名 映画館
プラグインは cl.conf に足して置けば使えます。
in cl.conf
# -------------------------------------------------------------
# 以下、プラグイン
sub google_search {
my ($k) = @_;
my $o = $k;
$k =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$k =~ s/\s/+/g;
my $c = "ie=EUC-JP&oe=EUC-JP&";
return qq(<a href="http://www.google.co.jp/search?${c}q=$k">$o</a>);
}
[ 固定リンク ]