GEO :: ¿ìÆí ¹øÈ£ :: À§Ä¡

GEO :: POSTCODE :: LocationÀº ±×¸®µå ÂüÁ¶ Á¶È¸¸¦ ó¸®ÇÏ´Â Geo :: PostCodeÀÇ µµ¿ì¹Ì Ŭ·¡½ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

GEO :: ¿ìÆí ¹øÈ£ :: À§Ä¡ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • William Ross
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~wross/

GEO :: ¿ìÆí ¹øÈ£ :: À§Ä¡ ű×


GEO :: ¿ìÆí ¹øÈ£ :: À§Ä¡ ¼³¸í

GEO :: PostCode :: LocationÀº Geo ÂüÁ¶ Á¶È¸¸¦ ó¸®ÇÏ´Â Geo :: PostCode ¿ë µµ¿ì¹Ì Ŭ·¡½ºÀÔ´Ï´Ù. GEO :: PostCode :: LocationÀº Geo :: Grid Reference Lookups.Synopsis $ Geo :: DataFile = '/usr/local/lib/postcodes.db'¸¦ ó¸®ÇÏ´Â Geo :: PostCode ¿ë Helper Ŭ·¡½ºÀÔ´Ï´Ù. My ($ x, $ y) = Áö¸®Àû :: ¿ìü±¹ -> ÁÂÇ¥ ( 'EC1R 8BB'); GEO :: POSTCODE :: LocationÀº Geo :: PostCodeÀÇ Gridref ·è¾÷ ±â´ÉÀ» º¸À¯ÇÏ°í ÀÖ½À´Ï´Ù. ¸ÞÀÎ ¸ðµâÀÇ Ç² ÇÁ¸°Æ®¸¦ ÃÖ¼ÒÈ­ÇÏ°í ¼­ºê Ŭ·¡ ½ÌÀ» ¿ëÀÌÇÏ°ÔÇϱâ À§ÇØ ¿©±â¿¡¼­ ºÐ¸®µÇ¾î ÀÖÀ¸¸ç, Geo :: PostCode (¶Ç´Â ¼­ºê Ŭ·¡½º)ÀÇ °´Ã¼°¡ ÇÊ¿äÇϹǷΠ°¡Àå ½±°Ô µµ´Þ ÇÒ ¼ö Àֱ⠶§¹®ÀÔ´Ï´Ù. °´Ã¼´Â ¸î °¡Áö ±¸¼º º¯¼ö°¡ ÀÖÀ¸¸ç ÇÏÀ§ Ŭ·¡½º¸¦ ÇÏÀ§ Ŭ·¡½º¿¡ °ü½ÉÀÌ Àְųª µ¥ÀÌÅ͸¦ º¯°æÇÏ´Â µ¥ ÇÊ¿äÇÑ ¹æ¹ý ¼³¸í¼­°¡ ÀÖ½À´Ï´Ù. Gridref DatableTe´Â ÀÚ½ÅÀÇ Gridref Data¸¦ Á¦°øÇÏ´Â µ¥ ÃÖ¼ÒÇÑ ¼¼ °¡Áö ¹æ¹ýÀÔ´Ï´Ù. µ¥ÀÌÅÍ ÆÄÀÏÀ» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. µ¥ÀÌÅ͸¦ SQLite ÆÄÀÏ·Î °¡Á® ¿À´Â ¸ðµç °ÍµéÀÌ µ¥ÀÌÅÍ ÆÄÀÏÀÇ Àüü °æ·Î¿¡ ´ëÇÑ GEO :: DataFile ¶Ç´Â $ env {postcode_data} Áß Çϳª¸¦ µ¥ÀÌÅÍ ÆÄÀÏ¿¡ ´ëÇÑ Àüü °æ·Î·Î ¼³Á¤ÇÏ´Â °ÍÀÔ´Ï´Ù. $ geo :: postcode :: location :: DataFile = '/home/site/data/postcodes.db'; # ¶Ç´Â PerlsetEnv PostCode_Data /Home/site/data/postcodes.dbi '/usefulsÀÌ ¸ðµâ°ú ÇÔ²² »ç¿ëÇϱ⿡ ÀûÇÕÇÑ SQLite ÆÄÀÏ·Î .csv µ¥ÀÌÅ͸¦ »ç¿ëÇÏ´Â µ¥ »ç¿ëÇÏ´Â ¹Ùº¸ ½ºÅ©¸³Æ®°¡ Æ÷ÇԵ˴ϴÙ. µ¥ÀÌÅͺ£À̽º¸¦ ó¸®ÇϽʽÿÀ. À§Ä¡ Á¤º¸¸¦ °Ë»öÇÏ´Â µ¥ »ç¿ëÇÏ´Â Äõ¸®´Â ¸Å¿ì °£´ÜÇÏ¸ç ¸ðµç DBI µ¥ÀÌÅͺ£À̽º ÇÚµé°ú ÇÔ²² ÀÛµ¿ÇؾßÇÕ´Ï´Ù. ÀÀ¿ë ÇÁ·Î±×·¥¿¡¼­ ÀûÀýÇÑ µ¥ÀÌÅͺ£À̽º ÇÚµéÀ» ÀÌ¹Ì »ç¿ëÇÏ¿© ÀûÀýÇÑ µ¥ÀÌÅͺ£À̽º ÇÚµéÀ» ¸¸µé°í ¿ÜºÎ¿¡¼­ »ý¼ºÇÏ°í Àç»ç¿ëµÇ¾ú´ÂÁö È®ÀÎÇÏ°í, $ GEO :: POSTCODE :: LOCTION :: DBH = $ my_dbh; $ GEO :: POSTCODE :: LOCTION :: TABLENAME = 'POSTCODEDATA'; My ($ x, $ y) = GEO :: ¿ìÆí ¹øÈ£ -> ÁÂÇ¥ ( 'EC1Y 8PQ'); mod_perl¿¡¼­ ½ÇÇà ÁßÀÌ¸é ±×·± ÇÚµéÀ» °øÀ¯ÇÏ°í ½ÍÁö ¾ÊÀ» °ÍÀÔ´Ï´Ù. ÀνºÅϽº ¸Þ¼­µå¿Í µ¿ÀÏÇÑ ÀÛ¾÷À» ¼öÇàÇÏ°í ºÎÀÛ¿ëÀ» ÇÇÇÒ ¼ö ÀÖÁö¸¸ ÀûÀýÇÑ ½Ã°£¿¡ ÀüÈ­¸¦ °É¾î¾ßÇÕ´Ï´Ù. My $ Postcode = Geo :: PostCode-> New ( 'EC1Y 8PQ'); $ ¿ìÆí ¹øÈ£ -> À§Ä¡ -> dbh ($ my_dbh); $ ¿ìü±¹ -> À§Ä¡ -> tablename ( 'postcodeData'); ³» ($ x, $ y) = $ ¿ìü±¹ -> ÁÂÇ¥; ÇÏÀ§ Ŭ·¡½º¿¡¼­ Á¶È¸ ¸ÞÄ¿´ÏÁòÀ» ¹«½ÃÇϽʽÿÀ. µ¥ÀÌÅÍ °Ë»ö ÇÁ·Î¼¼½º´Â °¡´ÉÇÑ ÇÑ °£´ÜÇÏ°Ô ¸¸µé±â À§ÇØ ³ª´©¾î Á® ÀÖ½À´Ï´Ù. ÀÚ¼¼ÇÑ ³»¿ëÀº ¾Æ·¡ÀÇ ¸Þ¼Òµå ¼³¸íÀ» ÂüÁ¶ÇϽʽÿÀ. DBH¸¦ ÀçÁ¤ÀÇÇÏ¿© µ¥ÀÌÅÍ ¼Ò½º¸¦ ±³Ã¼Çϰųª °Ë»öÀ» ±³Ã¼ÇÏ¿© Àüü Á¶È¸¸¦ ´Ù½Ã ½ÇÇàÇÒ ¼ö ÀÖ¾î¾ßÇÕ´Ï´Ù. $ GEO :: POSTCODE-> location_class ( 'My :: location'); ÆÐÅ°Áö ³» :: À§Ä¡; ±âº» QW (GEO :: POSTCODE :: location)¸¦ »ç¿ëÇϽʽÿÀ. SUB DBH {...} ¿ä±¸ »çÇ× : ¡¤ Perl.


GEO :: ¿ìÆí ¹øÈ£ :: À§Ä¡ °ü·Ã ¼ÒÇÁÆ®¿þ¾î

HTML :: DEBUG.

HTML :: DEBUG´Â HTMLÀÇ µð½ºÇ÷¹ÀÌ¿¡ ´ëÇÑ º¯¼ö ¹× Äõ¸® µð¹ö±ë Á¤º¸ÀÇ Ãâ·ÂÀ» °¡´ÉÇÏ°ÔÇÏ´Â PERL Ŭ·¡½ºÀÔ´Ï´Ù. ...

221

´Ù¿î·Îµå