º´·Ä :: ·çÇÁ

º´·Ä ·Î±ë ÇÏÀ§ ÇÁ·Î¼¼½º¸¦ »ç¿ëÇÏ¿© ·çÇÁ ½ÇÇà
Áö±Ý ´Ù¿î·Îµå

º´·Ä :: ·çÇÁ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Peter Valdemar M?rch
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~pmorch/

º´·Ä :: ·çÇÁ ű×


º´·Ä :: ·çÇÁ ¼³¸í

º´·Ä ·Î±ë ÇÏÀ§ ÇÁ·Î¼¼½º¸¦ »ç¿ëÇÏ¿© ·çÇÁ¸¦ ½ÇÇàÇϽʽÿÀ Á¾Á¾ ·çÇÁÀÇ °¢ ¹Ýº¹ÀÌ ÀÌÀü ¹Ýº¹¿¡ ÀÇÁ¸ÇÏÁö ¾Ê´Â °è»êÀ» ¼öÇàÇϸç, ¹Ýº¹Àº ½ÇÁ¦·Î ¸ðµç order¿¡¼­ ¼öÇà µÉ ¼ö ÀÖ½À´Ï´Ù .Parallel :: ·çÇÁ´Â ¸ðµç °ÍÀ» »ç¿ëÇÏ¿© º´·Ä·Î ÀÌ·¯ÇÑ ·çÇÁ¸¦ ½ÇÇàÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ±ÍÇÏÀÇ Ã³ºÐÀÇ CPU´Â $ PL-> Share ()¸¦ ÅëÇØ ÇØ´ç Á¾·ùÀÇ °øÀ¯¸¦ ÅëÇØ ÇØ´ç Á¾·ùÀÇ °øÀ¯¸¦ À§ÇØ ¸í½Ã ÀûÀ¸·Î ±¸¼ºµÈ % Çؽà ¶Ç´Â @arrays¸¦ ÅëÇØ ¾Æµ¿¿¡¼­ ºÎ¸ð·Î ÀÚµ¿ Àü¼ÛµË´Ï´Ù. Çؽô ¾î¸°ÀÌ¿¡ ¼³Á¤µÈ Å° (¸íÈ®ÇÏÁö ¾ÊÀ½)¸¦ Àü¼ÛÇÒ °ÍÀÔ´Ï´Ù (¸íÈ®ÇÏÁö ¾ÊÀ½ ¶Ç´Â unset unset). ¾î¸°ÀÌÀÇ @Arrays¿¡ Ǫ½Ã µÈ ¿ä¼Ò°¡ ºÎ¸ð´Ô @ array·Î Ǫ½ÃµË´Ï´Ù (ÁÖ¹®Àº ±× ¼ø¼­°¡ µ¿ÀÏÇÏ°Ô º¸ÀåµÇÁö´Â ¾Ê½À´Ï´Ù. ÇÑ °¡Áö °úÁ¤¿¡¼­ ¸ðµç ÀÏÀ» ÇØ¿Ô ´ø °æ¿ì¿¡ ¿ÔÀ» °ÍÀÔ´Ï´Ù. Æ÷Å©, ÆÄÀÌÇÁ, ½ÅÈ£ µîÀ¸·Î ±ÍÂú°ÔÇÏ·Á¸éÀÌ ¸ðµâÀÌ ¸ðµÎ 󸮵˴ϴÙ. ½Ä ³ëÇÁ°¡ º´·Ä :: ·çÇÁ »ç¿ë; MY $ MAXPROCS = 5; ³» $ PL = º´·Ä :: ·çÇÁ -> »õ ($ maxprocs); ³» @parameters = (0 .. 9); # ¿ì¸®´Â °¢ @Input¿¡ ´ëÇÑ ¾à°£ÀÇ ¹«°Å¿î °è»êÀ» ¼öÇàÇÏ°í °¢ °è»êÀÇ °á°ú¸¦ % Ãâ·ÂÀ¸·Î ÀúÀåÇÕ´Ï´Ù. ±× ÀÌÀ¯·Î, ¿ì¸®´Â ¿ì¸®°¡ ¾Æµ¿ ÇÁ·Î¼¼½º #¿¡¼­ % Ãâ·ÂÀ» º¯°æÇϵµ·Ï # "ŸÀÌ"% Ãâ·ÂÀ̹ǷΠ# ºÎ¸ð¿¡¼­µµ ÀÚµ¿À¸·Î Àü¼ÛµÇ°í ¾÷µ¥ÀÌÆ®µË´Ï´Ù. ³» % ReturnsValues; $ PL-> °øÀ¯ (\ % returnvalues); $ PL-> foreach (\ @parameters, sub {#parameters, sub {#parameters, magrically "magrically"´Â °£´ÜÇÑ ¿¹Á¦¸¦ ¸¸µì´Ï´Ù. ±×·¯³ª ÀÌ°ÍÀº # $ # $ MaxProcs ¼­·Î ´Ù¸¥ CPU $ ReturnValues {$ _} = sqrt ($ _);}); foreach (@parameters) {printf "i : % d sqrt (i) : % f \ n", $ _, $ returnvalues {$ _}; } % Çؽà ´ë½Å @arrays¸¦ »ç¿ëÇÒ ¼öµµ ÀÖ°í foreach ´ë½Å ·çÇÁ ´ë½Å ·çÇÁ¸¦ »ç¿ëÇÒ ¼öµµ ÀÖ½À´Ï´Ù. my @returnvalues; $ pl-> °øÀ¯ (\ @ returnvalues); ³» $ i = 0; $ PL-> ({$ i ++ <10} ¼­ºê {#ÀÌ ÇÏÀ§ "¸¶¼úó·³"asturnvalues ;}); ±×¸®°í ´ç½ÅÀº ÇÒ ¼ö ÀÖ½À´Ï´Ù $ pl-> share ()°¡ ÀüÇô ÇÊ¿äÇÏÁö ¾Êµµ·Ï $ pl-> share ()°¡ ÇÊ¿äÇÏÁö ¾Êµµ·Ï °ªÀ» ¹ÝȯÇÏ´Â µ¿¾È ¸ðµÎ ¹ÝȯÇÏ´Â °ÍÀÔ´Ï´Ù : my $ maxprocs = 5; ³» $ PL = º´·Ä :: ·çÇÁ -> »õ ($ maxprocs); My % ReturnValues = $ PL-> foreach (, ÇÏÀ§ {# ´Ù½Ã, ÀÌ´Â Æ÷Å©·Î µÈ ÀÚ½Ä $ _ => SQRT ($ _);}); ¿ä±¸ »çÇ× : ¡¤ Perl.


º´·Ä :: ·çÇÁ °ü·Ã ¼ÒÇÁÆ®¿þ¾î