memo.xight.org

日々のメモ

chalow の 駅前探検倶楽部へのリンクプラグイン

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

中板橋
板橋本町