Ŭ·Ð :: »¡¸®

±âº»ÀûÀ¸·Î PERL µ¥ÀÌÅÍ ±¸Á¶ º¹»ç
Áö±Ý ´Ù¿î·Îµå

Ŭ·Ð :: »¡¸® ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Trevor Hall
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~wazzuteke/

Ŭ·Ð :: »¡¸® ű×


Ŭ·Ð :: »¡¸® ¼³¸í

±âº»ÀûÀ¸·Î Perl µ¥ÀÌÅÍ ±¸Á¶¸¦ º¹»çÇÕ´Ï´Ù Clone :: Fast´Â ¸Å¿ì ÃÖÀûÈ­ µÈ º¹Á¦º» ¹öÀüÀ¸·Î ¼³°èµÈ Perl ¸ðµâÀÔ´Ï´Ù. Ŭ·Ð Áß Çϳª¸¦ ÀÌ¿ëÇÏ¿© : More 'Optimization_Hacks'»Ó¸¸ ¾Æ´Ï¶ó ¸ðµç ¼ø¼ö PerlÀ» more.pm¿¡¼­ Á¦°ÅÇÏ¸é ¸ðµâ¿¡¼­ ¸¹Àº ¼Óµµ¸¦ ³ôÀÏ ¼öÀÖ¾ú½À´Ï´Ù. º»ÁúÀûÀ¸·Î ¸ðµâÀÇ ÇÙ½ÉÀº Ŭ·Ð :: ´õ ¸¹Àº °Í°ú Á¤È®È÷ ÀÖ½À´Ï´Ù. º¥Ä¡ ¸¶Å© :: cmpthese¸¦ »ç¿ëÇÏ¿© Storeable :: DClone, Clone :: More :: Clone ¹× Ŭ·Ð :: Fast :: Clone. ´ç½ÅÀº (ÇØ¾ß ÇÒ °Í), º¹Á¦º»ÀÇ Ãø¸éÀ» µû¶ó ³»°¡ÀÌ ¸ðµâÀ»·Îµå ÇÑ ÀÌÀ¯¸¦ º¸·Á¸é (ÇؾßÇÕ´Ï´Ù). ºñÀ² ÀúÀå °¡´ÉÇÑ Å¬·Ð :: ´õº¸±â º¹Á¦ :: ºü¸¥ ÀúÀå °¡´É 7552 / s - -39 % -59 % Ŭ·Ð :: ´õº¸±â 12400 / s 64 % - -33 % Ŭ·Ð :: ºü¸¥ 144442 / s 144 % 49 % - ½Ä ³ëÇÁ ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. Ŭ·Ð :: ºü¸¥ QW (º¹Á¦); µ¥ÀÌÅÍ :: Dumper; # ±×·¸°Ô ÇÒ ¼öÀÖ´Â °¡Àå ½¬¿î ÀÏÀÌ µÉ ¼ö ÀÖÁö¸¸ # ´Ù¸¥ ¿É¼Çµµ ÀÖ½À´Ï´Ù. # # »ç¿ë Clone :: Fast; # clone :: fast :: clone # {# No Strict '¶ó´Â Clone # {# refs'; # * clone = clone :: fast :: clone; #} # eval ( "Sub Clone {clone :: Fast :: Clone}"); My $ Original = Ãູ ({ '='}, 'Main'); ³» $ COPY = º¹Á¦ ($ ORIGINAL); # ¿øº» ¹× º¹»çº»ÀÌ ´õ ÀÌ»ó µ¿ÀÏÇÏÁö ¾Ê½À´Ï´Ù. "if ($ Original NE $ º¹»ç);"°°Àº ±¸Á¶¹° Àμâ "(Dumper ($ Original) EQ Dumper ($ º¹»ç); ¿ä±¸ »çÇ× : ¡¤ Perl.


Ŭ·Ð :: »¡¸® °ü·Ã ¼ÒÇÁÆ®¿þ¾î