ed2k_link. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Valery Kalesnik
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~val/
ed2k_link. ű×
ed2k_link. ¼³¸í
ED2K ¸µÅ©¸¦ ÀÛ¼ºÇÏ°í ÀÛ¾÷ÇÏ´Â ¸ðµâ ED2K_LINK´Â ED2K LINK¸¦ »ç¿ëÇÏ¿© ÀÛ¼º ¹× ÀÛ¾÷À»À§ÇÑ PERL ¸ðµâÀÔ´Ï´Ù .SNOPSIS´Â ED2K_LINK¸¦ »ç¿ëÇÕ´Ï´Ù. ed2k_link -> from_file ( 'C : \ temp \ new_movie.mkv') -> ¸µÅ© ( 'H')¸¦ ÀμâÇϽʽÿÀ. ...¿¡ " "; ³» $ Emule = ed2k_link -> from_file ( 'emule0.49c.zip') ¶Ç´Â 'ÆÄÀÏ¿¡ À߸øµÈ °Í!'); My $ sources = ed2k_link -> from_link ( 'ed2k : // | ÆÄÀÏ | Emule0.49C .zip | 2868871 | 0F88EEFA9D8AD3F43DABAC9982D2450C |) ¶Ç´Â 'À߸øµÈ ¸µÅ©!'; $ ¼Ò½º -> from_link ( 'ed2k : // | ÆÄÀÏ | Emule0.49c-sources.zip | 5770302 | 195B66651484C3CC065148D74C3CC066514846CF | /') ¶Ç´Â DIE ' À߸øµÈ ¸µÅ©! '; $ Emule -> ¸µÅ© Àμâ ('H ') $ Emule -> ÆÄÀÏ Å©±â ($ Emule, $ ¼Ò½º) {print "ÆÄÀÏ". $ Emule -> filename. "¹×". $ ¼Ò½º -> filename. "´Â µ¿ÀÏÇÕ´Ï´Ù ";} ed2k_link -> from_file ( '/ sonthere / cool_file.txt') -> ¸µÅ© ( 'HP'); ed2k_link ÆÄÀÏÀÇ ED2K ¸µÅ©°¡ ¿Ã¹Ù¸¥ ÇؽÃ, AICH Çؽà ¹× ¿ÏÀüÇÑ Çؽà ¼Â Çʵ尡 ÀÖ½À´Ï´Ù. ÀÌ¹Ì »ý¼º µÈ ¸µÅ© (¿¹ : TextFile¿¡¼). ¿ä±¸ »çÇ× : ¡¤ Perl.
ed2k_link. °ü·Ã ¼ÒÇÁÆ®¿þ¾î