Geo :: Google.

GEO :: GoogleÀº GoogleÁöµµ¸¦ »ç¿ëÇÏ¿© Áö¸®Àû Äõ¸®¸¦ ¼öÇàÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Geo :: Google. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Allen Day
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~birney/bioperl-1.4/Bio/DB/GFF/Aggregator/ucsc_genscan.pm

Geo :: Google. ű×


Geo :: Google. ¼³¸í

Geo :: GoogleÀº GoogleÁöµµ¸¦ »ç¿ëÇÏ¿© Áö¸®Àû Äõ¸®¸¦ ¼öÇàÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. GEO :: GoogleÀº Google Maps.Synopsis »ç¿ëÀ» »ç¿ëÇÏ¿© Áö¸®Àû Äõ¸®¸¦ ¼öÇàÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. µ¥ÀÌÅÍ :: Dumper; Geo :: Google; #my Office My $ Gonda_Addr = '695 Charles E Young Dr S, Westwood, CA 90024'; # ½ºÅÄÀÇ µµ³ÊÃ÷ ³» $ stans_addr = '10948 Weyburn Ave, Westwood, CA 90024'; # New Geo :: Google °³Ã¼¸¦ ÀÔ·ÂÇϽʽÿÀ. MY $ GEO = GEO :: Google-> New (); #create Geo :: Google :: À§Ä¡ °³Ã¼. À̵éÀº ¸î °¡Áö ´Ù¸¥ ¼¼ºÎ »çÇ×°ú ÇÔ²² # À§µµ / °æµµ ÁÂÇ¥°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. My ($ gonda) = $ geo-> À§Ä¡ (ÁÖ¼Ò => $ gonda_addr); ³» ($ stans) = $ geo-> À§Ä¡ (ÁÖ¼Ò => $ stans_addr); $ Gonda-> À§µµ, "/", $ gonda-> °æµµ, "n"; $ Stans-> À§µµ, "/", $ Stans-> °æµµ, "N"À» ÀμâÇϽʽÿÀ. # GEO :: Google :: Path °³Ã¼¸¦ »ý¼ºÇϽʽÿÀ. My ($ donut_path) = $ geo-> °æ·Î ($ gonda, $ stans); #a °æ·Î¿¡´Â #text ·¹À̺íÀÌÀÖ´Â ÀÏ·ÃÀÇ Geo :: Google :: ¼¼±×¸ÕÆ® °´Ã¼°¡ #the µÎ loci »çÀÌÀÇ ÅÏ - ¹ÙÀÌ ÅÏ ¿îÀü ¹æÇâÀ» ³ªÅ¸³»´Â ÀÏ·ÃÀÇ ±¸Á¶¸¦ Æ÷ÇÔÇÕ´Ï´Ù. my @segments = $ donut_path-> segments (); # ÀÌ°ÍÀº # Á¶¿ì ´ÏÀÇ Ã¹ ¹ø° ´Ù¸®¸¦À§ÇÑ Àΰ£ÀÌ ÀÐÀ» ¼öÀÖ´Â ¹æÇâÀÔ´Ï´Ù. $ segments Àμâ -> text (), "n"; #Geo :: Google :: Segment °´Ã¼¿¡´Â ÀÏ·ÃÀÇ #Geo :: Google :: À§Ä¡ °³Ã¼°¡ Æ÷ÇԵ˴ϴÙ. - ¼¼±×¸ÕÆ®°¡ Á÷¼±¿¡¼­ ¼¼±×¸ÕÆ®ÀÇ ³¡±îÁö±îÁö #deviates¸¦ ¸Å¹ø Æ÷ÇÔÇÕ´Ï´Ù. ³» @points = $ segments -> Æ÷ÀÎÆ®; $ POINTS -> À§µµ, "/", $ POINTS -> °æµµ, "N"; #now ¾î¶² Ä¿ÇÇ°¡ ¾î¶§? my @coffee = $ geo-> ±Ùó ($ Stans, 'Coffee'); #³Ê¹« ¸¹¾Æ. Ä¿ÇÇ Äá°ú Â÷ ÀÙÀº ¾î¶§? @coffee = grep {$ _-> title = ~ /coffee.*?bean/i} @coffee; # ³Ê¹« ¸¹ÀÌ #still. ÀÛÀº Trig¿Í °¡Àå °¡±î¿î °÷À» ã¾Æ º¾½Ã´Ù # A ($ Coffee) = ¸Ê {$ _-> } Á¤·Ä {$ a -> $ b -> } ¸Ê {} @coffee; geo :: GoogleÀº ÀαâÀÖ´Â GoogleÁöµµ À¥ ÀÀ¿ë ÇÁ·Î±×·¥¿¡¼­ »ç¿ëµÇ´ÂÁöµµ µ¥ÀÌÅÍ. ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


Geo :: Google. °ü·Ã ¼ÒÇÁÆ®¿þ¾î