| POE :: Component :: CPAN :: Reporter. POEÀÇ Àü·ÂÀ» CPAN ¿¬±â Å×½ºÆ®·Î °¡Á® ¿À´Â |
Áö±Ý ´Ù¿î·Îµå |
POE :: Component :: CPAN :: Reporter. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Chris Williams
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bingos/
POE :: Component :: CPAN :: Reporter. ű×
POE :: Component :: CPAN :: Reporter. ¼³¸í
PoEÀÇ ÈûÀ» CPAN ¿¬±â Å×½ºÆ®·Î °¡Á® ¿À½Ê½Ã¿À PoE :: Component :: CPAN :: Reporter´Â CPAN ¹× CPAN :: Reporter ÁÖº¯ÀÇ PoE ±â¹Ý ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. ÀÌ ¸ðµâÀº ´Ù¸¥ PoE ¼¼¼ÇÀ¸·ÎºÎÅÍ Á¦ÃâÀ» ¹Þ°í PoE :: ÈÙ :: ½ÇÇàÀ» À§ÇØ ½ÇÇàµÇµµ·Ï Spawns CPAN :: Reporter¸¦ ó¸®ÇÏ°í Ãâ·ÂÀ» ĸóÇÏ°í ¿äûÀ» ¿äûÇÕ´Ï´Ù. ÇÑ ¹ø¿¡ ÇÑ ¹øÀÇ ÀÛ¾÷ ¿äûÀÌ Ã³¸® µÉ ¼ö ÀÖ½À´Ï´Ù. ÀÛ¾÷ÀÌ ÁøÇà ÁßÀ̸é Á¦Ãâ µÈ ¸ðµç ÀÛ¾÷ÀÌ º¸·ùÁßÀÎ ÀÛ¾÷ ´ë±â¿¿¡ Ãß°¡µË´Ï´Ù. ±âº»°ªÀº PoE :: Wheel :: RunÀ» »ç¿ëÇÏ¿© ÇöÀç ½ÇÇàÁßÀÎ PerlÀÇ ´Ù¸¥ º¹»çº»À» Æ÷Å©ÇÏ¿© $ ^ x¿¡¼ ÀÛµ¿ÇÕ´Ï´Ù. »ç¿ëÇϵµ·Ï ´Ù¸¥ Perl ½ÇÇà ÆÄÀÏÀ» ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. MSWIN32 »ç¿ëÀÚ´Â Platform°ú °ü·ÃµÈÀÌ ¹®¼ÀÇ ¼½¼ÇÀ» ÂüÁ¶ÇϽʽÿÀ. CPAN ¹× CPAN :: Reporter¸¦ ¼³Ä¡ÇÏ°í ±¸¼ºÇÏ°í ÀûÇÕÇÑ Perl Èí¿¬ ȯ°æÀ» ¼³Á¤Çϴ åÀÓÀÌ ÀÖ½À´Ï´Ù .Synopsis´Â ¾ö°ÝÇÕ´Ï´Ù. PoE QW (±¸¼º ¿ä¼Ò :: CPAN :: Reporter ±¸¼º ¿ä¼Ò :: SmokeBox :: RECERD); getopt :: long; $ | = 1; My ($ Perl, $ Jobs, $ ÃÖ±Ù); getOptions ( 'perl = s'=> $ Perl, 'Jobs = s'=> $ ÀÛ¾÷, 'ÃÖ±Ù'=> $ PERECTURL); ³» @ Á¨Àú; if ($ Jobs) {$ FH, "<$ jobs"¸¦ ¿±´Ï ´Ù ¶Ç´Â "$ jobs : $! "; (<$ fh>) {CHOMP; PUSH @ Ææ ·»µå, $ _;} ´Ý±â ($ FH); '); poe :: session-> create (package_states => , Èü => {perl => $ perl, pending => @pending}) $ poe_kernel-> run (); 0À» Á¾·áÇϽʽÿÀ. sub _start {my ($ kernel, $ heap) = @_ ; if (@ {$ heap -> {pending}}) {$ kernel-> @ {$ heap -> {pending}}¿¡ ´ëÇÑ ( 'Èí¿¬ÀÚ', 'Á¦Ãâ', {event => '_results', perl => $ heap -> {perl}, module => $ _));}} {PoE :: Component :: SmokeBox :: Recent-> ÃÖ±Ù (URL => $ ÃÖ±Ù || 'http://www.cpan.org/', À̺¥Æ® => 'ÃÖ±Ù',); $ kernel-> post ( 'Èí¿¬ÀÚ', 'ÃÖ±Ù', {event => '_recent', perl => $ heap -> {perl}})} undef;} sub _stop {$ poe_kernel-> È£Ãâ ( 'Èí¿¬ÀÚ', 'Á¾·á'); Undef;} ÇÏÀ§ _Results {My $ Job = $ _ ; Print stdout "¸ðµâ :", $ JOB -> {MODULE}, " ", Àμâ stdout"$ _ "@ {$ JOB-> {log}}; Undef;} sub _recent {my ($ kernel, $ heap, $ Job) = @_ ; Die $ Job -> {error}, ...¿¡ " "$ Job -> {error}; $ kernel-> post ( 'Èí¿¬ÀÚ', 'Á¦Ãâ', {event => '_results', perl => $ heap -> {perl}, module => $ _)) @ {$ Job -> {ÃÖ±Ù}}; Undef;} ¿ä±¸ »çÇ× : ¡¤ Perl.
POE :: Component :: CPAN :: Reporter. °ü·Ã ¼ÒÇÁÆ®¿þ¾î