| POE :: ±¸¼º ¿ä¼Ò :: CPAN :: SQLite :: Info. POE :: ±¸¼º ¿ä¼Ò :: CPAN :: SQLITE :: INFO´Â CPAN :: SQLITE :: FILE FETCHINGE ´É·ÂÀ¸·Î Á¤º¸¸¦ Â÷´ÜÇÏÁö ¾Ê´Â ·¡ÆÛÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
POE :: ±¸¼º ¿ä¼Ò :: CPAN :: SQLite :: Info. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~zoffix/
POE :: ±¸¼º ¿ä¼Ò :: CPAN :: SQLite :: Info. ű×
POE :: ±¸¼º ¿ä¼Ò :: CPAN :: SQLite :: Info. ¼³¸í
POE :: Component :: CPAN :: SQLite :: INFO´Â CPAN :: SQLITE :: ÆÄÀÏÀ» »ç¿ëÇÏ¿© ÆÄÀÏ °¡Á® ¿À±â ´É·ÂÀ» °¡Áø ºñ Â÷´Ü ·¡ÆÛÀÔ´Ï´Ù. PoE :: Component :: CPAN :: SQLite :: INFO´Â CPAN ÁÖÀ§ÀÇ Â÷´ÜµÇÁö ¾Ê´Â ·¡ÆÛÀÔ´Ï´Ù :: SQLITE :: FILE FETCHING ABILITITIOLITION.SNOPSIS »ç¿ë. °æ°í¸¦ »ç¿ëÇϽʽÿÀ. POE QW (±¸¼º ¿ä¼Ò :: CPAN :: SQLite :: Info)¸¦ »ç¿ëÇϽʽÿÀ. ³» $ POCO = POE :: ±¸¼º ¿ä¼Ò :: CPAN :: SQLite :: Info-> Spawn; POE :: ¼¼¼Ç -> create (package_states => ,]; $ poe_kernel-> ½ÇÇà; SUB _START {$ POCO-> freshen ({mirror => http://cpan.org/ ', À̺¥Æ® =>'°¡Á® ¿À±â ',}); } Sub Fetched {My ($ Ä¿³Î, $ INPUT) = @_ ; # whoops. ¹º°¡ À߸ø µÆ¾î. ¿À·ù (S) #À» ÀμâÇÏ°í ($ INPUT -> {FRASHEN_ERROR}) {# FREATH '¶ó°í Ç¥½ÃµÈ °æ¿ì ($ IPATE -> {FRASHEN_ERROR}) {#Àº'³×Æ®¿öÅ© Ãø¿¡ ¿À·ù #À» ¾ò¾ú½À´Ï´Ù. # ±×·¸Áö ¾ÊÀ¸¸é ÆÄÀÏÀ»À§ÇÑ µð·ºÅ丮¸¦ ¸¸µå´Â °ÍÀÔ´Ï´Ù. if ($ input -> {freshen_error} eq 'fetch') {# 3 ÆÄÀÏÀ» °¡Á® ¿À±â ¶§¹®¿¡ 1-3 ¿À·ù°¡ ¿©±â¿¡ ÀÖ½À´Ï´Ù. Àμâ "ÆÄÀÏÀ» °¡Á®¿Ã ¼ö ¾øÀ½"; foreach my $ file (Å° % {$ input -> {freshen_errors}}) {print "t $ file => $ input -> {freshen_errors} {$ file} n"; }} else {print "storage dir : $ input -> {freshen_error} n"; }} else {# ¿ì¸®´Â ¿ì¸® ÆÄÀÏÀ» °¡Áö°í, Áö±Ý ±×µéÀ» ±¸¹®ÇսôÙ. $ POCO-> fetch_info ({À̺¥Æ® => 'Á¤º¸'}); }} ÇÏÀ§ Á¤º¸ {My ($ kernel, $ °á°ú) = @_ ; # $ °á°ú°¡ ¸¹Àº ¼öºÐÀÌ ¸¹Àº µ¥ÀÌÅ͸¦ ¾ò¾ú½À´Ï´Ù. ¹º°¡¸¦ ¼±ÅÃÇÏ°í µ¥ÀÌÅ͸¦ »ç¿ëÇϽʽÿÀ :: Dumper; Àμ⠴ýÆÛ ($ °á°ú -> {mods} { 'www :: search :: Mininova'}); # POCO¸¦ ´Ý½À´Ï´Ù $ POCO-> Á¾·á; } ¹°·Ð À̺¥Æ® ±â¹Ý ÀÎÅÍÆäÀ̽º¸¦ »ç¿ëÇÏ¸é °¡´ÉÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
POE :: ±¸¼º ¿ä¼Ò :: CPAN :: SQLite :: Info. °ü·Ã ¼ÒÇÁÆ®¿þ¾î