Summary
紹介した店の最寄駅までの乗り換えを簡単に調べられるようにしたい.駅前探検倶楽部の「下車駅」に引数を入力するプラグインを作成.
Source
### 駅前探検倶楽部へのリンク
# usage: {{ekitan('中板橋')}}
sub ekitan {
my ($str) = @_;
my $prefix = q(http://www8.ekitan.com/norikae/Norikae1Servlet?ST=);
my $enc = Jcode->new($str)->sjis;
$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$enc =~ s/\s/+/g;
return qq(<a href="$prefix$enc" title="駅探検索 - $str着">$str</a>);
}
sub station {ekitan(@_)}
Sample
中板橋板橋本町