OHTSUKA Ko-hei > Location-GeoTool-2 > lib/Location/GeoTool/Japanese.pod

Download:
Location-GeoTool-2.tar.gz

Annotate this POD

View/Report Bugs
Source  

̾�� ^

Location::GeoTool - ���������򰷤�Perl�⥸�塼��

���� ^

  use Location::GeoTool;

  my $oGeo = Location::GeoTool->create_coord('35.39.24.491','139.40.10.478','tokyo','gpsone');
  my @mapion = $oGeo->format_mapion->array;
   # => ("35/39/24.491","139/40/10.478")
  my $oGeoW = $oGeo->datum_wgs84;
  my @wgs84 = ($oGeoW->lat,$oGeoW->long);
   # => ("35.39.36.145","139.39.58.871")
  my @degree_wgs84 = $oGeoW->format_second;
   # => (128376.14524...,502798.87076...)

���� ^

���󥹥ȥ饯����(create_coord)

  my $obj = Location::GeoTool->create_coord($lat,$long,$datum,$format);

Location::GeoTool���֥������Ȥ��������ޤ���

  $lat    : ����
  $long   : ����
  $datum  : ¬�Ϸ�
  $format : �ե����ޥå�

�������줿���֥������ȤΥǥե����Ȥ�¬�Ϸϡ��ե����ޥåȤϰ����ǻ��ꤷ�����Τˤʤ��ޤ��� ���äơ�array,lat,long�᥽�å������֤äƤ����ͤϡ����󥹥ȥ饯���ǻ��ꤷ�����Τ�Ʊ���ˤʤ��ޤ��� ¬�ϷϤϰʲ���ʸ������Ϳ���Ƥ���������

  ����(������)¬�Ϸ� : 'wgs84'
  ������¬�Ϸ�       : 'tokyo'

�ե����ޥåȤϡ��ʲ���ʸ������Ϳ���Ƥ���������

  MapionURL�ե����ޥå� (ddd/mm/ss.nnn)  : 'mapion'
  gpsOneɸ���ե����ޥå�(ddd.mm.ss.nnn)  : 'gpsone'
  SpaceTag������ɸ��    (pddmmssnnn)     : 'spacetag'
  dddmmss.nnn����                        : 'dmsn'
  ��ñ��                (ddd.dddddd...)  : 'degree'
  ��ñ��                (ssssss.sss...)  : 'second'
  �饸����ñ��                           : 'radian'

�а��ټ����᥽�åɷ�

���ߤΥ��֥������Ȥ����ꤵ�줿¬�Ϸϡ��ե����ޥåȤǤΡ��а��٤��ͤ��֤��ޤ���

  ($lat,$long) = $obj->array;
    or
  $lat = $obj->lat;
  $long = $obj->long;

¬�Ϸϡ��ե����ޥå��Ѵ��᥽�åɷ�

������¬�Ϸϡ��ե����ޥåȤ��Ѵ����줿�������֥������Ȥ��֤��ޤ���

  $newobj = $obj->datum_wgs84;
  $newobj = $obj->format_mapion;

�������������ʲ��Τ褦�ʻ��ϲ�ǽ�Ǥ���

  ($lat,$long) = $obj->datum_tokyo->format_radian->array;

������Ƥ������᥽�åɤϡ��ʲ��ΤȤ����Ǥ���

  ����(������)¬�ϷϤ��Ѵ��� datum_wgs84
  ������¬�ϷϤ��Ѵ��� datum_tokyo
  MapionURL�ե����ޥå�(ddd/mm/ss.nnn)���Ѵ��� format_mapion
  gpsOneɸ���ե����ޥå�(ddd.mm.ss.nnn)���Ѵ��� format_gpsone
  SpaceTag������ɸ��(pddmmssnnn)���Ѵ��� format_spacetag
  dddmmss.nnn�������Ѵ��� format_dmsn
  ��ñ��(ddd.dddddddd��)���Ѵ���format_degree
  ��ñ��(ssssss.sss��)���Ѵ��� format_second
  �饸����ñ�̤��Ѵ��� format_radian

���ա��Ѵ����줿���֥������Ȥϡ��ºݤˤϸ�¬�Ϸϡ��ե����ޥåȤǤξ������ݻ����� �а��ټ����᥽�åɷ����¹Ԥ��줿���ˡ����λ�������¬�Ϸϡ��ե����ޥåȤؤ��Ѵ��� �ºݤ˼¹Ԥ����ޤ��� �����ϡ�¬�Ϸϡ��ե����ޥå��Ѵ��Ȥ������礭�������Ǥ��Τǡ������򷫤��֤����� �°��֤Ȥθ����礭���ʤ������ɤ������λ��ͤǤ��� ��������Class::DBI�Ȥ�Ϣ�������ͤ������硢�ɤ���¬�Ϸϡ��ե����ޥåȤ��ͤ������Ƥ� �����ǵ�����¬�Ϸϡ��ե����ޥåȤ��Ѵ����Ƥ��줿�����������ʡ��Ȥ����������⤢�� �ޤ��Τǡ����λ��ͤ��ѹ���������ǽ���������ޤ���

��������Υ�����᥽�åɷ�

�����֥������Ȥ������Ȥ�������������Υ�򰷤�Location::GeoTool::Direction ���֥������Ȥ����������᥽�åɷ��Ǥ��� Location::GeoTool::Direction�ˤĤ��Ƥ�Ʊ���饹��pod�򻲾Ȥ��Ƥ���������

  my $dirobj = $locobj->direction_point('40/36/14.307','141/01/33.022','tokyo','mapion');
  my ($dir,$dist) = ($dirobj->direction,$dirobj->distance);
    or
  my $direction = $locobj->direction_point($another_locobj)->direction;
    or
  my ($endlat,$endlong) = $locobj->direction_vector($dir,$dist)->to_point->array;

������

direction_point

���������ꤷ�ơ�Location::GeoTool::Direction���֥������Ȥ��������ޤ��� �����ˤϡ�

  $locobj->direction_point($lat,$long,$datum,$format);

�Τ褦�˽����ηа��١�¬�Ϸϡ��ե����ޥåȤ����Ѥ�����ˡ�� �ڤ�¾��Location::GeoTool���֥������Ȥ����Ѥ�����ˡ

  $locobj->direction_point($another_locobj);

����������ǽ�Ǥ���

direction_vector

��������Υ�����ꤷ��Location::GeoTool::Direction���֥������Ȥ��������ޤ���

  $locobj->direction_point($direction,$distance);

�������̤�0���Ȥ���������������0����360�������̳ѡ���Υ��m�ǻ��ꤷ�ޤ���

��¸ ^

Math::Trig

��Ϣ���� ^

�а���2������Υ���������������Ѵ�Ƴ�Х��르�ꥺ���ϡ� http://williams.best.vwh.net/gccalc.htm�ˤ����ơ� Ed Williams�᤬JavaScript�Ǽ�����Ƥ������Τ��ܿ����ޤ�����

¬�Ϸ��Ѵ���Ƴ�Х��르�ꥺ���ϡ� http://homepage3.nifty.com/Nowral/02_DATUM/Molodensky.html�ˤ����ơ� Nowral�᤬Perl CGI�Ǽ�����Ƥ������Τ��ܿ����ޤ�����

�������Υ����Ȥ˴��դ������ޤ���

���Υ⥸�塼���ϡ����������������֥����ȡ�����http://kokogiko.net/ �ˤƥ��ݡ��Ȥ������ޤ���

���� ^

���� ��ʿ, <nene@kokogiko.net>

������饤������ ^

Copyright (C) 2003,2004 SpaceTag Inc.,

�ܥ饤�֥����ϥե꡼���եȤǤ��ꡢPerl���Τ�Ʊ�������Ǥκ����ۡ����Ѥ���ǽ�Ǥ���

syntax highlighting: