| º´·Ä :: Subfork. ºÐ±â µÈ ÇÁ·Î¼¼½º¿¡¼ Perl ±â´ÉÀ» °ü¸®ÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
º´·Ä :: Subfork. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Emmanuel Rodriguez
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://debian.potyl.com/
º´·Ä :: Subfork. ű×
º´·Ä :: Subfork. ¼³¸í
Æ÷Å© ÇÁ·Î¼¼½º¿¡¼ Perl ±â´ÉÀ» °ü¸®ÇÕ´Ï´Ù. º´·Ä :: Subfork´Â ºÐ±â µÈ ÇÁ·Î¼¼½º¿¡¼ Perl ÇÔ¼ö¸¦ °ü¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Ä ³ëÇÁ°¡ º´·Ä :: Subfork; MY $ MANAGER = º´·Ä :: SUBFORK-> NEW (); # µÎ °³ÀÇ º´·Ä ÀÛ¾÷ ½ÃÀÛ $ Manager-> ½ÃÀÛ (ÇÏÀ§ {ÀýÀü 10; Àμâ "¿Ï·á "}); $ manager-> start (Äݹé, @Args); # ¸ðµç ÀÛ¾÷ÀÌ $ manager-> wait_for_all ()À» ´Ù½Ã ½ÃÀÛÇÏ´Â ´ë±âÇÕ´Ï´Ù. ¸ðµç ÀÛ¾÷À» À§Á¶ÇÏ¿© $ Task ($ manager-> ŽºÅ©) {# ¾×¼¼½º PRID % d°¡ Àç°³ µÈ PRIPTF "ÀÛ¾÷ Áß Çϳª ", $ task-> pid; printf"»óÅ : % d, Á¾·á ÄÚµå : % d \ n ", $ task-> status, $ task-> exit_code; printf"args where : % s ", °¡ÀÔ ( ',', $ task-> args); Àμâ" ";} ÀÌ»ó ½±°Ô : º´·Ä :: subfork qw (sub_fork); my $ task = sub_fork (Äݹé, @ARG); $ task-> wait_for ();ÀÌ ¸ðµâÀº ¸ðµâÀ» ÅëÇØ °£´ÜÇÑ ·¡ÆÛ¸¦ Á¦°øÇÕ´Ï´Ù. :: subfork ´ÙÀ½°ú °°Àº ÀÛ¾÷Àº Æ÷Å©¿Í WaitPID ½Ã½ºÅÛÀÇ »ç¿ëÀ» ´Ü¼øÈÇÕ´Ï´Ù. ±× ¾ÆÀ̵ð¾î´Â º´·Ä 󸮸¦ ÀÌ¿ëÇϱâ À§ÇØ ÇÔ¼ö ³ª Ŭ·ÎÀú¿¡¼ ½ÇÇàÁßÀÎ ÀÛ¾÷À» ºÐ¸® µÈ ÇÁ·Î¼¼½º¿¡¼ ½ÇÇàÇÏ´Â ÀÛ¾÷À» °Ý¸®ÇÏ´Â °ÍÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¡¤ Perl.
º´·Ä :: Subfork. °ü·Ã ¼ÒÇÁÆ®¿þ¾î