www :: Google :: ±×·ì

WWW :: Google :: ±×·ìÀº Google ±×·ì ¿¡ÀÌÀüÆ®¸¦À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

www :: Google :: ±×·ì ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • xern
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~xern/PerlIO-via-Babelfish-0.01/Babelfish.pm

www :: Google :: ±×·ì ű×


www :: Google :: ±×·ì ¼³¸í

www :: Google :: ±×·ìÀº Google ±×·ì ¿¡ÀÌÀüÆ®¸¦À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. www :: Google :: ±×·ìÀº Google ±×·ì½º ¿¡ÀÌÀüÆ® ¿ë Perl ¸ðµâÀÔ´Ï´Ù. WWW :: Google :: ±×·ì; $ agent = new www :: google :: ±×·ì (server => 'group.google.com', proxy => 'my.proxy.server : Æ÷Æ®',); $ group = $ Agent-> select_group ( 'comp.lang.perl.misc'); $ group-> starting_thread (0); # ù ¹ø° ½º·¹µå¸¦ °¡Á® ¿À´Â ù ¹ø° ½º·¹µå¸¦ °¡Á®¿É´Ï´Ù. ($ thread = $ group-> next_thread ()) {¹Ýȯ µÈ $ thread-> next_thread ()) : °£´ÜÇÑ °³Ã¼ # À̸ÞÀÏ ÂüÁ¶ : ¸Þ¼ÒµåÀÇ °£´ÜÇÑ ¹æ¹ý Àμâ Q / / $ thread-> Á¦¸ñ, '', $ /; }} 'raw'¸¦ $ thread-> next_article ()ÀÇ Àμö ½ºÅÃÀ¸·Î Ǫ½ÃÇÏ¸é ¸Þ½ÃÁöÀÇ ¿ø½Ã Çü½ÄÀ» ¹ÝȯÇÕ´Ï´Ù. while ($ thread = $ group-> next_thread ()) {while ($ article = $ thread-> next_article ( 'raw')) {$ $ }} ÀÌÀÌ ´õ °­·ÂÇÑ ¹æ¹ýÀ» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. Àüü ´º½º ±×·ìÀ» ¹Ì·¯¸µÇÏ°í ¸Þ½ÃÁö¸¦ UNIX MBox¿¡ ÀúÀåÇÏ·Á°íÇÕ´Ï´Ù. $ agent-> save2mbox (group => 'comp.lang.perl.misc', starting_thread => 0, max_thread_count => 10000, max_thread_count => 10000, target_mbox => 'perl.misc.mbox'); ¿ä±¸ »çÇ× : ¡¤ Perl.


www :: Google :: ±×·ì °ü·Ã ¼ÒÇÁÆ®¿þ¾î