memo.xight.org

Home > Changelogメモ > 2006-02 > 2006-02-08 > chalow の駅前探検倶楽部へのリンクプラグイン

2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12
2002 : 01 02 03 04 05 06 07 08 09 10 11 12

2006-02-08

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(@_)}