º´·Ä :: Subfork.

ºÐ±â µÈ ÇÁ·Î¼¼½º¿¡¼­ Perl ±â´ÉÀ» °ü¸®ÇÕ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

º´·Ä :: Subfork. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î