̾Á°
Location::Area::DoCoMo::iArea - ·Ð°ÞÅÙËô¤Ï¥³¡¼¥ÉÈֹ椫¤éNTT DoCoMo¤Îi¥¨¥ê¥¢¥ª¥Ö¥¸¥§¥¯¥È¤òµá¤á¤ë
³µÍ×
use Location::Area::DoCoMo::iArea;
# ¤â¤·Ì·½â¤ò²ò¾Ã¤·¤¿³°ÀܷаÞÅ٥ǡ¼¥¿¤òÍѤ¤¤¿¤¤¤Ê¤é¤Ð
use Location::Area::DoCoMo::iArea qw(useAdjustedAura);
#¥ª¥Ö¥¸¥§¥¯¥ÈÀ¸À®
# ·Ð°ÞÅÙ¤«¤é¥ª¥Ö¥¸¥§¥¯¥ÈÀ¸À®
$oiArea = Location::Area::DoCoMo::iArea->create_coord("34/20/39.933","135/21/51.826","tokyo","mapion");
# or
$oiArea = Location::Area::DoCoMo::iArea->create_coord("342039.933","1352151.826","wgs84","dmsn");
# ¥¨¥ê¥¢¥³¡¼¥É¤«¤é¥ª¥Ö¥¸¥§¥¯¥ÈÀ¸À®
$oiArea = Location::Area::DoCoMo::iArea->create_iarea("152","00");
# or same
$oiArea = Location::Area::DoCoMo::iArea->create_iarea("15200");
#¥Ç¡¼¥¿¼èÆÀ
# 5·å¤Î¥¨¥ê¥¢¥³¡¼¥É¼èÆÀ
my $fid = $oiArea->id();
# 3·å¤Î¿Æ¥³¡¼¥É¼èÆÀ
my $pid = $oiArea->areaid();
# 2·å¤Î²¼¥³¡¼¥É¼èÆÀ
my $sid = $oiArea->sub_areaid();
# EUC-JP¤Ç¥¨¥ê¥¢Ì¾¤òÆÀ¤ë
my $name = $oiArea->name();
# EUC-JP¤ÇÅÔÆ»Éܸ©Ì¾¤òÆÀ¤ë
my $pref = $oiArea->prefecture();
# EUC-JP¤ÇÃÏÊý̾¤òÆÀ¤ë
my $reg = $oiArea->region();
# ¥¨¥ê¥¢¤Î³°ÀÜ»ÍÊÕ·Á(¥ª¡¼¥é)¤Î¥ª¥Ö¥¸¥§¥¯¥È(Location::GeoTool::Aura)¤òÆÀ¤ë
my $oAura = $oiArea->get_aura;
# ¥ª¡¼¥é¤ÎÅìÀ¾ÆîË̤λÍÊÕ¤òÆÀ¤ë(À¤³¦Â¬ÃÏ·Ï¡¢GPSONE¥Õ¥©¡¼¥Þ¥Ã¥È)
my ($slim,$wlim,$nlim,$elim) = $oAura->datum_wgs84->format_gpsone->array;
# ¤â¤·¤¯¤Ï(ÆüËܬÃÏ·Ï¡¢ÅÙñ°Ì)
my ($slim,$wlim,$nlim,$elim) = $oAura->datum_tokyo->format_degree->array;
# ¥ª¡¼¥é¤ÎÃæ¿´ÅÀ¥ª¥Ö¥¸¥§¥¯¥È(Location::GeoTool)¤òÆÀ¤ë
my ($clat,$clong) = $oiArea->get_center->array;DESCRIPTION
CONSTRUCTOR
create_coord
·Ð°ÞÅÙ¤«¤éLocation::Area::DoCoMo::iArea¥ª¥Ö¥¸¥§¥¯¥È¤òÀ¸À®¤¹¤ë¡£
ÍøÍÑË¡:
$obj = Location::Area::DoCoMo::iArea->create_coord($lat,$lon,$datum,$format);
°ú¿ô:
$lat : °ÞÅÙ (Ë̤¬Àµ).
$lon : ·ÐÅÙ (Å줬Àµ).
$datum : ·Ð°ÞÅ٤άÃϷϤòÆÃÄê¡£ (Location::GeoTool¤Îʸ»úÎó¤ò»ÈÍÑ)
$format: ·Ð°ÞÅ٤Υե©¡¼¥Þ¥Ã¥È¤òÆÃÄê¡£ (Location::GeoTool¤Îʸ»úÎó¤ò»ÈÍÑ)
¤â¤·¤¯¤Ï¡¢
ÍøÍÑË¡:
$obj = Location::Area::DoCoMo::iArea->create_coord($point);
°ú¿ô::
$point : Location::GeoTool¥ª¥Ö¥¸¥§¥¯¥È
Ìá¤êÃÍ:
$obj : Location::Area::DoCoMo::iArea¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤·¤Þ¤¹¡£
·Ð°ÞÅ٤Υ¨¥ê¥¢¤Ø¤Î·ë¤Ó¤Ä¤±¤¬¼ºÇÔ¤·¤¿¾ì¹ç¡¢undef¤òÊÖ¤·¤Þ¤¹¡£create_iarea
¥¨¥ê¥¢¥³¡¼¥É¤«¤éLocation::Area::DoCoMo::iArea¥ª¥Ö¥¸¥§¥¯¥È¤òÀ¸À®¤¹¤ë¡£
ÍøÍÑË¡:
$obj = Location::Area::DoCoMo::iArea->create_iarea($id,$sid);
°ú¿ô:
$id : 5·å¤Î¥¨¥ê¥¢¥³¡¼¥É¤â¤·¤¯¤Ï3·å¤Î¿Æ¥³¡¼¥É¤òÀßÄê¡£
$sid : 2·å¤Î»Ò¥³¡¼¥É¤òÀßÄê($id¤Ë¿Æ¥³¡¼¥É¤ò»ØÄꤷ¤¿¾ì¹ç¤Ïɬ¿Ü)¡£
Ìá¤êÃÍ:
$obj : Location::Area::DoCoMo::iArea¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤·¤Þ¤¹¡£
¥¨¥ê¥¢¥³¡¼¥É¤Î¥¨¥ê¥¢¤Ø¤Î·ë¤Ó¤Ä¤±¤¬¼ºÇÔ¤·¤¿¾ì¹ç¡¢undef¤òÊÖ¤·¤Þ¤¹¡£Â°À
id
areaid
sub_areaid
¤½¤ì¤¾¤ì¡¢5·å¤Î¥¨¥ê¥¢¥³¡¼¥É¡¢3·å¤Î¿Æ¥³¡¼¥É¡¢2·å¤Î»Ò¥³¡¼¥É¤òÊÖ¤·¤Þ¤¹¡£
name
prefecture
region
¤½¤ì¤¾¤ì¤³¤Î¥¨¥ê¥¢¤Î¥¨¥ê¥¢Ì¾¡¢ÅÔÆ»Éܸ©Ì¾¡¢ÃÏÊý̾¤òÊÖ¤·¤Þ¤¹¡£ Á´¤ÆEUC-JP¥³¡¼¥É¤Ç¤ÎÃͤòÊÖ¤·¤Þ¤¹¡£
¥á¥½¥Ã¥É
include_area
·Ð°ÞÅÙ¤ò»ØÄꤷ¡¢¤½¤ÎÅÀ¤¬¸½ºß¤Î¥¨¥ê¥¢¤Ë´Þ¤Þ¤ì¤ë¤«¤ò¥Á¥§¥Ã¥¯¤·¤Þ¤¹¡£
ÍøÍÑË¡:
$is_include = $obj->include_area($lat,$lon,$datum,$format);
# or
$is_include = $obj->include_area($point);
Ìá¤êÃÍ:
$is_include : ´Þ¤Þ¤ì¤Æ¤¤¤ì¤Ð1¡¢¤¤¤Ê¤±¤ì¤Ð0¤òÊÖ¤·¤Þ¤¹¡£
¢¨:·Ð°ÞÅÙ¤«¤éi¥¨¥ê¥¢¥ª¥Ö¥¸¥§¥¯¥È¤ÏºîÀ®¤Ç¤¤ë¤Î¤Ç¡¢¤¢¤Þ¤ê°ÕÌ£¤Ï¤Ê¤¤¤«¤â
¤·¤ì¤Þ¤»¤ó¤¬¡¢i¥¨¥ê¥¢¥ª¥Ö¥¸¥§¥¯¥È¤Ï¼«¿È¤Î¥á¥Ã¥·¥å¤ò¥¥ã¥Ã¥·¥å¤·¤Æ¤¤¤ë
¤Î¤Ç¡¢Á´¥¨¥ê¥¢¤Î¥á¥Ã¥·¥å¤òÁí¤Ê¤á¤¹¤ë¤è¤ê¤Ï¼ã´³Áᤤ¤«¤È¡£get_aura
¥¨¥ê¥¢¤Î³°ÀÜ»ÍÊÕ·Á(¥ª¡¼¥é)¤Î¥ª¥Ö¥¸¥§¥¯¥È-Location::GeoTool::Aura-¤òÊÖ¤·¤Þ¤¹¡£
ÍøÍÑË¡:
$oAura = $obj->get_aura;Location::GeoTool::Aura¥ª¥Ö¥¸¥§¥¯¥È¤Ï°Ê²¼¤Î¤è¤¦¤Ë»È¤Ã¤Æ¤¯¤À¤µ¤¤¡£
#¬ÃÏ·Ï¡¦¥Õ¥©¡¼¥Þ¥Ã¥È¤ÎÆÃÄê:
$oAura->datum_wgs84->format_degree...
È÷¤¨¤ë¥á¥½¥Ã¥É¤Î̾Á°¡¦¿ô¤ÏLocation::GeoTool¤Ë°ìÃפ·¤Þ¤¹¡£
#³°ÀÜ»ÍÊÕ·Á¤Î·Ð°ÞÅÙ¤ò¼èÆÀ¤·¤Þ¤¹:
($sbound,$wbound,$nbound,$ebound) = $oAura->......->array;
Ãí°Õ:
NTT¥É¥³¥â¤Î³°ÀܷаÞÅ٥ǡ¼¥¿¤Ï¿¤¯¤ÎÌ·½â¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£
³µÎ¬¤È¤·¤Æ¼¨¤µ¤ì¤Æ¤¤¤ë³°ÀܷаÞÅ٤ȡ¢¥á¥Ã¥·¥åÁ´¤Æ¤«¤é¼ÂºÝ¤Ëµá¤á¤¿
³°ÀܷаÞÅÙ¤¬¡¢°ìÃפ·¤Ê¤¤¥¨¥ê¥¢¤¬¿ô³äÄøÅÙ´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£
¤½¤Î¤¿¤áËܥ⥸¥å¡¼¥ë¤Ç¤Ï¡¢¥á¥Ã¥·¥å¤«¤é·×»»¤·¤¿Ì·½â¤Î¤Ê¤¤³°ÀÜ»ÍÊÕ·Á
¥Ç¡¼¥¿¤òºîÀ®¤·¡¢Æ±º¤·¤Æ¤ª¤ê¤Þ¤¹¡£
¤¿¤À¤·¡¢Ä㤤³ÎΨ(¤È¿®¤¸¤Æ¤¤¤Þ¤¹:))¤Ê¤¬¤éËܥ⥸¥å¡¼¥ë¤Ç¤Î·Ð°ÞÅÙ·×»»¤¬
´Ö°ã¤Ã¤Æ¤¤¤¿¤ê¡¢°¿¤¤¤Ï¥¨¥ê¥¢¤ÎÃæ¿´¤òÄ´À°(»Ô³¹ÃϤÎÃæ¿´¤¬¥¨¥ê¥¢¤Îü¤Ë
¤³¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡¢Åù)¤¹¤ë¤¿¤á¤Ë¤ï¤¶¤È³°ÀÜ»ÍÊÕ·Á¤ò¤º¤é¤·¤Æ¤¤¤ë¡¢Åù¤Î
»ö¾ð¤¬¥É¥³¥â¦¤Ë¤¢¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤Î¤Ç¡¢Ì·½â¤ò¤Ê¤¯¤·¤¿¥Ç¡¼¥¿¤ò¥Ç¥Õ¥©
¥ë¥È¥Ç¡¼¥¿¤È¤¹¤ë»ö¤ÏÈò¤±¤Þ¤·¤¿¡£
¤â¤·Ì·½â¤ò¤Ê¤¯¤·¤¿¥Ç¡¼¥¿¤òÍѤ¤¤¿¤¤¾ì¹ç¤Ï¡¢¥â¥¸¥å¡¼¥ë¤Î¸Æ¤Ó½Ð¤·»þ¤Ë
use Location::Area::DoCoMo::iArea qw(useAdjustedAura);get_center
³°ÀÜ»ÍÊÕ·Á¤ÎÃæ¿´ÅÀ¤òµá¤á¤Þ¤¹¡£
ÍøÍÑË¡:
$cpoint = $obj->get_center;
Ìá¤êÃÍ:
Location::GeoTool¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤¹¤¿¤á¡¢·Ð°ÞÅÙ¤òÆÀ¤ë¤Ë¤Ï°Ê²¼¤Î¤è¤¦¤Ê
·Á¤È¤Ê¤ê¤Þ¤¹¡£
($clat,$clong) = $cpoint->datum_wgs84->format_degree->array;get_nextarea
¤³¤Î¥¨¥ê¥¢¤ËÎÙÀܤ¹¤ë¥¨¥ê¥¢¤Î¡¢Location::Area::DoCoMo::iArea¥ª¥Ö¥¸¥§¥¯¥È¤Î
¥ê¥¹¥È¤òÊÖ¤·¤Þ¤¹¡£
ÍøÍÑË¡:
@next = $obj->get_nextarea;
Ìá¤êÃÍ:
@next : ¤³¤Î¥¨¥ê¥¢¤ËÎÙÀܤ¹¤ë¥¨¥ê¥¢¤Î¡¢Location::Area::DoCoMo::iArea¥ª¥Ö
¥¸¥§¥¯¥È¤ÎÇÛÎó
Ãí°Õ:
1.¸·Ì©¤Ë¡Ö¥á¥Ã¥·¥å¤¬ÎÙÀܤ¹¤ë¡×¥¨¥ê¥¢´Ö¤·¤«Î٤Ȥߤʤµ¤ì¤Ê¤¤¤è¤¦¤Ê¤Î¤Ç¡¢
¥¨¥ê¥¢´Ö¤Ë³¤¤¬¤¢¤Ã¤¿¾ì¹ç¡¢¤É¤ì¤Û¤É¶á¤¯¤Æ¤âÎÙÀÜ¥¨¥ê¥¢¤È¤Ï¤ß¤Ê¤µ¤ì¤Ê¤¤¤è¤¦
¤Ç¤¹¡£
2.¥Ç¡¼¥¿¥½¡¼¥¹¤È¤Ê¤Ã¤Æ¤¤¤ë
http://www.nttdocomo.co.jp/p_s/imode/iarea/iareaweb/iarea_contents.html
¤Ç¤ÎÎÙÀܾðÊó¤Ï¡¢ÊÒÊý¸þ¤Ë¤Ê¤Ã¤Æ¤¤¤¿¤êÇѻߤµ¤ì¤¿¥¨¥ê¥¢¤¬´Þ¤Þ¤ì¤Æ¤¤¤¿¤ê¤È
Ì·½â¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£
Ëܥ⥸¥å¡¼¥ë¤Ç¤Ï¡¢ÊÒÊý¸þÎÙÀܾðÊó¤òÁÐÊý¸þ¤Ë¤·¡¢Çѻߤµ¤ì¤¿¥¨¥ê¥¢¤Î¾ðÊó¤ò
ºï½ü¤·¤¿¤ê¤·¤Æ¡¢Ì·½â¤Î¤Ê¤¤ÎÙÀܾðÊó¤Ë¤·¤Æ¤ª¤ê¤Þ¤¹¡£°Í¸
Carp
Location::GeoTool´ØÏ¢¾ðÊó
¤³¤Î¥Ð¡¼¥¸¥ç¥ó¤Ç¤Îi¥¨¥ê¥¢¥Ç¡¼¥¿¤Ï¡¢NTT¥É¥³¥â¤Î2004ǯ3·î29ÆüÇÛÉۤΥǡ¼¥¿¡¢
http://www.nttdocomo.co.jp/p_s/imode/iarea/iareadata040329.lzh.
¤ò¸µ¤Ë¤·¤Æ¤ª¤ê¤Þ¤¹¡£
¤Þ¤¿¡¢ÎÙÀÜ¥¨¥ê¥¢¤Î¾ðÊó¤Ï¡¢NTT¥É¥³¥â¤ÎWeb¥µ¥¤¥È
http://www.nttdocomo.co.jp/p_s/imode/iarea/iareaweb/iarea_contents.html.
¤ò¸µ¤Ë¡¢Ì·½â¤ò²ò¾Ã¤·¤¿Êª¤òÍøÍѤ·¤Æ¤ª¤ê¤Þ¤¹¡£
¤³¤Î¥â¥¸¥å¡¼¥ë¤Ï¡¢¤³¤³¥®¥³¡ª¥¦¥§¥Ö¥µ¥¤¥È¡¡¡§ http://kokogiko.net/¤Ë¤Æ¥µ¥Ý¡¼¥È
¤¤¤¿¤·¤Þ¤¹¡£ºî¼Ô
OHTSUKA Ko-hei, <kotsuka@spacetag.jp>
Ãøºî¸¢¡¦¥é¥¤¥»¥ó¥¹
Copyright (C) 2004 by SpaceTag INC.,
Ëܥ饤¥Ö¥é¥ê¤Ï¥Õ¥ê¡¼¥½¥Õ¥È¤Ç¤¢¤ê¡¢PerlËÜÂΤÈƱ¤¸¾ò·ï¤Ç¤ÎºÆÇÛÉÛ¡¦²þÊѤ¬²Äǽ¤Ç¤¹¡£
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 1:
Non-ASCII character seen before =encoding in '̾Á°'. Assuming CP1252