~¿Í ÇÔ²²

±âº» °´Ã¼°¡ÀÖ´Â ¾îÈÖ½Ä È£Ãâ ¸Þ¼Òµå
Áö±Ý ´Ù¿î·Îµå

~¿Í ÇÔ²² ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

~¿Í ÇÔ²² ű×


~¿Í ÇÔ²² ¼³¸í

¾îÈÖ ÀûÀ¸·Î ±âº» °´Ã¼°¡ÀÖ´Â ¸Þ¼Òµå¸¦ È£ÃâÇÕ´Ï´Ù °¡´ÉÇϸé ÇöÀç ¹üÀ§¿¡¼­ ¸Þ¼Òµå°¡ È£ÃâµÇ´Â ±âº» °´Ã¼¸¦ Á¤ÀÇ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÌ ÀÖ½À´Ï´Ù. \ $ obj °ü¿ë±¸¿Í ÇÔ²² »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù (°´Ã¼¿¡ ´ëÇÑ ÂüÁ¶¸¦ Àü´ÞÇØ¾ß ÇÔ). ÇöÀç ¹üÀ§¿¡¼­ ¿©·¯ ¹ø »ç¿ëÇÏ´Â °æ¿ì ±âº» °´Ã¼°¡ ¸¶Áö¸·À¸·Î ÁöÁ¤µÈ °´Ã¼°¡µË´Ï´Ù. ½Ä ³ëÇÁ ½º ÆÐÅ°Áö DEUCE; »õ {³» $ class = shift; Ãູ {id => shift}, $ class} sub hlagh {my $ self = shift; "Deuce :: Hlagh $ self-> {id} \ n"} ÆÐÅ°Áö ¹ÙÁö; ÇÏÀ§ hlagh {print "¹ÙÁö :: hlagh \ n"} @isa; Ǫ½Ã @isa, 'deuce'; ³» $ deuce = »õ·Î¿î µà½º 1; hlagh; # ¹ÙÁö :: hlagh {\ $ deuce¿Í ÇÔ²² »ç¿ëÇϽʽÿÀ; hlagh; # Deuce :: Hlagh 1 ¹ÙÁö :: Hlagh; # ¹ÙÁö :: hlagh {\ deuce-> new (2); hlagh; # deuce :: hlagh 2} HLAGH; # deuce :: hlagh 1 no; hlagh; # ¹ÙÁö :: HLAGH} HLAGH; # ¹ÙÁö :: HLAGH ¿ä±¸ »çÇ× : ¡¤ Perl.


~¿Í ÇÔ²² °ü·Ã ¼ÒÇÁÆ®¿þ¾î