Ŭ·¡½º :: STD.

Ŭ·¡½º :: STD´Â Ç¥ÁØ "inside-out"Ŭ·¡½º¸¦ ÀÛ¼ºÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Ŭ·¡½º :: STD. ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

Ŭ·¡½º :: STD. ű×


Ŭ·¡½º :: STD. ¼³¸í

Ŭ·¡½º :: STD´Â Ç¥ÁØ "inside-out"Ŭ·¡½º¸¦ ÀÛ¼ºÇϱâ À§ÇØ Áö¿øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Ŭ·¡½º :: STD´Â Ç¥ÁØ "³»ºÎ ¾Æ¿ô"Ŭ·¡½º¸¦ ÀÛ¼ºÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Synopsis ÆÐÅ°Áö MyClass; Ŭ·¡½º :: STD »ç¿ë; # °³Ã¼ ¼Ó¼º¿¡ ´ëÇÑ ÀúÀå¼Ò ¸¸µé±â ... % À̸§ : attr; ³» % ¼øÀ§ : attr; ³» % snum : attr; ³» % public_data : attr; #ÀÌ Å¬·¡½ºÀÇ °´Ã¼ÀÇ ÃʱâÈ­¸¦ ó¸® ... ÇÏÀ§ ºôµå {My ($ self, $ obj_id, $ arg_ref) = @_; $ name {$ obj_id} = check_name ($ arg_ref -> {name}); $ RANK {$ obj_id} = check_rank ($ arg_ref -> {¼øÀ§}); $ snum {$ obj_id} = _gen_uniq_serial_num (); } #ÀÌ Å¬·¡½ºÀÇ °´Ã¼ÀÇ Á¤¸®¸¦ ó¸®ÇϽʽÿÀ ... ÇÏÀ§ Æı« {³» ($ self, $ obj_id) = @_; _recycle_serial_num ($ snum {$ obj_id}); } # ¾Ë ¼ö¾ø´Â ¸Þ¼­µå È£ÃâÀ» ó¸® ... ÇÏÀ§ Automethod {My ($ self, $ obj_id, @other_args) = @_; # °ø¿ë µ¥ÀÌÅ͸¦ ¹ÝȯÇϽʽÿÀ ... (m / a get _ (. *) /) {# my $ get_what = $ 1¿¡ Àü´Þ µÈ °æ¿ì; ¸®ÅÏ ÇÏÀ§ {$ public_data {$ obj_id} {$ get_id} {$ get_id} }} °æ°í "´Â"ref $ self, "object"¿¡¼­ $ method_nameÀ» È£Ãâ ÇÒ ¼ö ¾ø½À´Ï´Ù. ¹ÝÇ°; # SUB ref}¸¦ ¹ÝȯÇÏÁö ¾ÊÀ½À¸·Î½á ÅëÈ­°¡ °ÅºÎµË´Ï´Ù.}ÀÌ ¸ðµâÀº Æí¸®ÇÏ°í Ç¥ÁØ ¹æ½ÄÀ¸·Î "³»ºÎ Out °´Ã¼"Ŭ·¡½º ±¸Á¶¸¦ ±¸ÇöÇÏ´Â µ¥ µµ¿òÀ̵Ǵ µµ±¸¸¦ Á¦°øÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


Ŭ·¡½º :: STD. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

±¼°î

Flexess´Â Java ÀÀ¿ë ÇÁ·Î±×·¥À»À§ÇÑ È®Àå °¡´ÉÇÑ º¸¾È ÇÁ·¹ÀÓ ¿öÅ©¸¦ Á¦°øÇÕ´Ï´Ù. ...

124

´Ù¿î·Îµå

threadlib.

threadLib´Â ³ª»ç»ê ÆÐÄ¡ ¹× ³ª»ç»ê PD ¿ÜºÎ ¿ë C ¹× PD ¶óÀ̺귯¸®ÀÔ´Ï´Ù. ...

112

´Ù¿î·Îµå

TK :: Perlmethodlist.

TK :: PerlMethodlist´Â Ŭ·¡½º (ÆÐÅ°Áö)¿¡ Á¤ÀÇ µÈ ¸Þ¼Òµå (¼­ºê ·çƾ)¿¡ ´ëÇÑ ½Éº¼ Å×À̺íÀ» Äõ¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

144

´Ù¿î·Îµå