2019-03-31 11:00:21 +00:00
---
title: 銀座ルノアールの場所をマッピング
author: kazu634
date: 2009-07-05
wordtwit_post_info:
- 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4693;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}'
categories:
- Perl
---
< div class = "section" >
< p >
暫定的に完成しました: < a href = "http://simoom634.sakura.ne.jp/gmap/test.html" onclick = "__gaTracker('send', 'event', 'outbound-article', 'http://simoom634.sakura.ne.jp/gmap/test.html', '銀座ルノアール');" target = "_blank" > 銀座ルノアール< / a >
< / p >
< h4 >
Perlのコード
< / h4 >
< pre class = "syntax-highlight" >
< span class = "synComment" > # === Libraries ===< / span >
< span class = "synStatement" > use strict< / span > ;
< span class = "synStatement" > use warnings< / span > ;
< span class = "synStatement" > use < / span > URI;
< span class = "synStatement" > use < / span > Web::Scraper;
< span class = "synStatement" > use < / span > YAML;
< span class = "synStatement" > use < / span > Data::Dumper;
< span class = "synStatement" > use < / span > Encode;
< span class = "synStatement" > use utf8< / span > ;
< span class = "synStatement" > use < / span > HTML::Template;
< span class = "synComment" > # use encoding " utf8" , STDOUT => " utf8" ;< / span >
< span class = "synStatement" > use < / span > Geography::AddressExtract::Japan;
< span class = "synStatement" > use < / span > WebService::Simple;
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > @address< / span > ;
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > @array< / span > ;
< span class = "synComment" > # === Main part ===< / span >
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $frame< / span > = scraper {
process < span class = "synConstant" > '//td[@class=" line_a" and @bgcolor =" #ffffff" ]//a'</ span > ,
< span class = "synConstant" > 'shop[]'< / span > => < span class = "synConstant" > '@href'< / span > ;
};
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $res< / span > =
< span class = "synIdentifier" > $frame< / span > -> scrape( URI-> < span class = "synStatement" > new< / span > (< span class = "synConstant" > " http://www.ginza-renoir.co.jp/renoir/index.htm" < / span > ) );
< span class = "synStatement" > foreach< / span > < span class = "synStatement" > my< / span > < span class = "synIdentifier" > $x< / span > ( @{ < span class = "synIdentifier" > $res< / span > -> {shop} } ) {
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $part< / span > = scraper {
process
< span class = "synConstant" > '/html[1]/body[1]/center[2]/center[1]/table[1]/tbody[1]/tr[1]/td[2]/table[1]/tbody[1]/tr[1]/td[1]/table[1]/tbody[1]/tr[1]/td[1]/table[@class=" size2" ]/tbody[1]/tr[1]/td[2]'< / span > ,
< span class = "synConstant" > 'shop'< / span > => < span class = "synConstant" > 'TEXT'< / span > ;
process
< span class = "synConstant" > '/html[1]/body[1]/center[2]/center[1]/table[1]/tbody[1]/tr[1]/td[2]/table[1]/tbody[1]/tr[1]/td[1]/table[1]/tbody[1]/tr[1]/td[1]/table[@class=" size2" ]/tbody[1]/tr[3]/td[2]'< / span > ,
< span class = "synConstant" > 'address'< / span > => < span class = "synConstant" > 'TEXT'< / span > ;
};
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $result< / span > = < span class = "synIdentifier" > $part< / span > -> scrape( URI-> < span class = "synStatement" > new< / span > (< span class = "synIdentifier" > $x< / span > ) );
< span class = "synStatement" > foreach< / span > < span class = "synStatement" > my< / span > < span class = "synIdentifier" > $addr< / span > ( < span class = "synIdentifier" > $result< / span > -> {address} ) {
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $t< / span > = Geography::AddressExtract::Japan-> extract(< span class = "synIdentifier" > $addr< / span > );
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $work< / span > = < span class = "synIdentifier" > $t< / span > -> [< span class = "synConstant" > < / span > ]-> {< span class = "synConstant" > " city" < / span > } . < span class = "synIdentifier" > $t< / span > -> [< span class = "synConstant" > < / span > ]-> {< span class = "synConstant" > " aza" < / span > } . < span class = "synIdentifier" > $t< / span > -> [< span class = "synConstant" > < / span > ]-> {< span class = "synConstant" > " number" < / span > };
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $latlng< / span > = < span class = "synIdentifier" > & getLatLng< / span > (< span class = "synIdentifier" > $work< / span > );
< span class = "synStatement" > my< / span > ( < span class = "synIdentifier" > $lng< / span > , < span class = "synIdentifier" > $lat< / span > ) = < span class = "synStatement" > split< / span > ( < span class = "synStatement" > /< / span > < span class = "synConstant" > ,< / span > < span class = "synStatement" > /< / span > , < span class = "synIdentifier" > $latlng< / span > );
< span class = "synStatement" > push< / span > ( < span class = "synIdentifier" > @array< / span > , { < span class = "synConstant" > lat < / span > => < span class = "synIdentifier" > $lat< / span > , < span class = "synConstant" > lng < / span > => < span class = "synIdentifier" > $lng< / span > } );
}
}
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $tmpl< / span > = HTML::Template-> < span class = "synStatement" > new< / span > ( < span class = "synConstant" > filename < / span > => < span class = "synConstant" > 'googlemap.tt'< / span > );
< span class = "synIdentifier" > $tmpl</ span > -> param( < span class = "synConstant" > DATASET </ span > => < span class = "synIdentifier" > \@array</ span > );
< span class = "synStatement" > print< / span > < span class = "synIdentifier" > $tmpl< / span > -> output;
< span class = "synStatement" > sub< / span > < span class = "synIdentifier" > getLatLng() < / span > {
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $arg< / span > = < span class = "synStatement" > shift< / span > ();
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $geocode< / span > = WebService::Simple-> < span class = "synStatement" > new< / span > (
< span class = "synConstant" > base_url < / span > => < span class = "synConstant" > " http://maps.google.com/maps/geo" < / span > ,
< span class = "synConstant" > param < / span > => {
< span class = "synConstant" > output < / span > => < span class = "synConstant" > 'xml'< / span > ,
< span class = "synConstant" > hl < / span > => < span class = "synConstant" > 'ja'< / span > ,
< span class = "synConstant" > ie < / span > => < span class = "synConstant" > 'UTF8'< / span > ,
< span class = "synConstant" > oe < / span > => < span class = "synConstant" > 'UTF8'< / span > ,
}
);
< span class = "synStatement" > my< / span > < span class = "synIdentifier" > $response< / span > = < span class = "synIdentifier" > $geocode< / span > -> get( { < span class = "synConstant" > q < / span > => < span class = "synIdentifier" > $arg< / span > , } );
< span class = "synStatement" > if< / span > ( < span class = "synIdentifier" > $response< / span > -> parse_response()-> {Response}-> {Status}-> {code} == < span class = "synConstant" > 200< / span > ) {
< span class = "synStatement" > return< / span > < span class = "synIdentifier" > $response< / span > -> parse_response()-> {Response}-> {Placemark}-> {Point}
-> {coordinates};
}
< span class = "synStatement" > else< / span > {
< span class = "synStatement" > return< / span > < span class = "synConstant" > 'Not Found, Not Found'< / span > ;
}
}
< / pre >
< h4 >
テンプレート用のファイル
< / h4 >
< pre class = "syntax-highlight" >
< span class = "synComment" > < !DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.1//EN" " http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd" > < / span >
< span class = "synIdentifier" > < < / span > < span class = "synStatement" > html< / span > < span class = "synIdentifier" > xmlns=< / span > < span class = "synConstant" > " http://www.w3.org/1999/xhtml" < / span > < span class = "synIdentifier" > xml:< / span > < span class = "synType" > lang< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " ja" < / span > < span class = "synIdentifier" > < / span > < span class = "synType" > lang< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " ja" < / span > < span class = "synIdentifier" > > < / span >
< span class = "synIdentifier" > < < / span > < span class = "synStatement" > head< / span > < span class = "synIdentifier" > > < / span >
< span class = "synPreProc" > < / span > < span class = "synIdentifier" > < < / span > < span class = "synStatement" > title< / span > < span class = "synIdentifier" > > < / span > GoogleMaps Test< span class = "synIdentifier" > < /< / span > < span class = "synStatement" > title< / span > < span class = "synIdentifier" > > < / span >
< span class = "synPreProc" > < / span > < span class = "synIdentifier" > < < / span > < span class = "synStatement" > meta< / span > < span class = "synIdentifier" > < / span > < span class = "synType" > name< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " Content-Type" < / span > < span class = "synIdentifier" > < / span > < span class = "synType" > content< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " text/html; charset=UTF-8" < / span > < span class = "synIdentifier" > /> < / span >
< span class = "synPreProc" > < / span > < span class = "synIdentifier" > < < / span > < span class = "synStatement" > script< / span > < span class = "synIdentifier" > < / span > < span class = "synType" > type< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " text/javascript" < / span > < span class = "synIdentifier" > < / span > < span class = "synType" > src< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " http://maps.google.co.jp/maps?file=api< / span > < span class = "synSpecial" > & #38;< / span > < span class = "synConstant" > v=2< / span > < span class = "synSpecial" > & #38;< / span > < span class = "synConstant" > key=ABQIAAAAi7tMvJT0pMWzzgIPgaKRWhS4ltLnHR4dqto9lWrc1i-hPbZKVRRG70Vj11-gAnxyxcGtaalOIUBpBA" < / span > < span class = "synIdentifier" > < / span > < span class = "synType" > charset< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " utf-8" < / span > < span class = "synIdentifier" > > < /< / span > < span class = "synStatement" > script< / span > < span class = "synIdentifier" > > < / span >
< span class = "synPreProc" > < / span > < span class = "synIdentifier" > < < / span > < span class = "synStatement" > script< / span > < span class = "synIdentifier" > < / span > < span class = "synType" > type< / span > < span class = "synIdentifier" > =< / span > < span class = "synConstant" > " text/javascript" < / span > < span class = "synIdentifier" > > < / span >
< span class = "synSpecial" > < / span > < span class = "synComment" > //< 