| Net :: BitTorrent BitTorrent ÇǾî Åõ ÇǾî ÇÁ·ÎÅäÄÝ Å¬·¡½º |
Áö±Ý ´Ù¿î·Îµå |
Net :: BitTorrent ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Sanko Robinson
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sanko/
Net :: BitTorrent ű×
Net :: BitTorrent ¼³¸í
BitTorrent ÇǾî Åõ ÇǾî ÇÁ·ÎÅäÄÝ Å¬·¡½º Net :: BitTorrent´Â ºÐ»ê µ¥ÀÌÅÍ ±³È¯À»À§ÇÑ BitTorrent ÇÁ·ÎÅäÄÝÀÇ Perl ¸ðµâ ±â¹Ý ±¸ÇöÀÔ´Ï´Ù. Synopsis´Â Net :: BitTorrent¸¦ »ç¿ëÇÕ´Ï´Ù. MY $ CLIENT = NET :: BITTORRENT-> NEW (); $ client-> on_event (q , sub {my ($ self, $ args) = @_; printf (QQ , $ args -> {q ]}, $ args -> {Q } -> Infohash);}); MY $ Torrent = $ Client-> add_torrent ({path => q }) ¶Ç´Â ´ÙÀÌ Q ; $ Torrent-> HashCheck; # ±âÁ¸ µ¥ÀÌÅ͸¦ È®ÀÎÇϽʽÿÀ $ Ŭ¶óÀ̾ðÆ® -> do_one_loop (). ¿ä±¸ »çÇ× : ¡¤ Perl.
Net :: BitTorrent °ü·Ã ¼ÒÇÁÆ®¿þ¾î