| Net :: Google :: µµ±¸ NET :: Google :: µµ±¸´Â Net :: Google ¼ºñ½º Ŭ·¡½ºÀÇ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Net :: Google :: µµ±¸ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Aaron Straup Cope
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ascope/Net-Flickr-Geo-0.72/lib/Net/Flickr/Geo/ModestMaps.pm
Net :: Google :: µµ±¸ ű×
Net :: Google :: µµ±¸ ¼³¸í
NET :: Google :: µµ±¸´Â Net :: Google ¼ºñ½º Ŭ·¡½ºÀÇ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. net :: google :: µµ±¸´Â net :: google ¼ºñ½º classes.base Ŭ·¡½º ¹× net :: google ¼ºñ½º Ŭ·¡½º¸¦À§ÇÑ °øÀ¯ ¸Þ¼ÒµåÀÇ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. synopsis »ç¿ë Net :: Google; constant local_google_key => "*******************************"; MY $ Google = Net :: Google-> New (key => local_google_key); ³» $ search = $ google-> search (); # °Ë»ö ÀÎÅÍÆäÀ̽º $ °Ë»ö -> Äõ¸® (QW (AARON Straup Cope)); $ search-> LR (QW (kw (en fr)); $ search-> starts_at (5); $ search-> max_results (15); {print $ _-> title () "n"; } @ {$ search-> °á°ú ()}; # ¶Ç´Â ... $ r (@ {$ search-> ÀÀ´ä ()}) {Àμ⠽ð£ : ". $ r-> searchtime ()"n "; # $ search-> °á°ú () ¸Þ¼µå {print $ _-> URL () "n"°ú µ¿ÀÏÇÑ °á°ú °³Ã¼ÀÇ ¹è¿ ÂüÁ¶¸¦ ¹ÝȯÇÕ´Ï´Ù. } @ {$ R-> °á°ú ()}; } # ¸ÂÃã¹ý ÀÎÅÍÆäÀ̽º Àμâ $ Google-> öÀÚ (±¸¹® => ""Muntreal QWebec ") -> Á¦¾È (),"n "; # ij½Ã ÀÎÅÍÆäÀ̽º My $ Cache = $ Google-> ij½Ã (URL => "http://search.cpan.org/recent"); Àμâ $ ij½Ã -> get (); ¿ä±¸ »çÇ× : ¡¤ Perl.
Net :: Google :: µµ±¸ °ü·Ã ¼ÒÇÁÆ®¿þ¾î