MapFanへのリンク
### MapFanへのリンク
# usage: {{mapfan('東京都○○区○町00-0')}}
sub mapfan {
my ($str) = @_;
my $prefix = q(http://www.mapfan.com/index.cgi);
my $enc = $str;
$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$enc =~ s/\s/+/g;
return qq(<a href="$prefix?ADDR=$enc" title="Map Fan - $str">Map Fan - $str</a>);
}
MapFanへのスポット名検索リンク
### MapFanへのスポット名検索リンク
# usage: {{mapfan_search('スポット名')}}
sub mapfan_search {
my ($str) = @_;
my $prefix = q(http://www.mapfan.com/keywordsrch.cgi);
my $enc = $str;
$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$enc =~ s/\s/+/g;
return qq(<a href="$prefix?SRCHKIND=SRCH_NAME&PARAM=$enc" title="Map Fan - スポット名検索 - $str">Map Fan - $str</a>);
}
MapionBBへの住所検索リンク
### MapionBBへのリンク
# usage: {{mapion('東京都○○区○町00-0')}}
sub mapion {
my ($str) = @_;
my $prefix = q(http://www.mapion.co.jp/c/f);
my $enc = $str;
$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$enc =~ s/\s/+/g;
return qq(<a href="$prefix?uc=7&grp=MapionBB&find=$enc" title="Mapion BB - $str">Mapion BB - $str</a>);
}
MapionBBへのランドマーク検索リンク
### MapionBBへのランドマーク検索リンク
# usage: {{mapion_search('ランドマーク')}}
sub mapion_search {
my ($str) = @_;
my $prefix = q(http://www.mapion.co.jp/c/f);
my $enc = $str;
$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$enc =~ s/\s/+/g;
return qq(<a href="$prefix?uc=12&grp=MapionBB&find=$enc" title="Mapion BB - ランドマーク検索 - $str">Mapion BB - $str</a>);
}