| Ŭ·¡½º :: Á¢±Ù ÀÚ Å¬·¡½º :: ¾×¼¼¼´Â ÀÚµ¿ Á¢±Ù ÀÚ »ý¼º µµ±¸ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: Á¢±Ù ÀÚ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Marty Pauley
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kasei/Class-Accessor-0.31/lib/Class/Accessor.pm
Ŭ·¡½º :: Á¢±Ù ÀÚ Å±×
Ŭ·¡½º :: Á¢±Ù ÀÚ ¼³¸í
Class :: Accessor´Â ÀÚµ¿ Á¢±Ù ÀÚ »ý¼º µµ±¸ÀÔ´Ï´Ù. Ŭ·¡½º :: ¾×¼¼¼´Â ÀÚµ¿ Á¢±Ù ÀÚ »ý¼º µµ±¸ÀÔ´Ï´Ù. ½Ä ³ëÇÁ ÆÐÅ°Áö Á÷¿ø; ±âº» QW (Ŭ·¡½º :: ¾×¼¼¼)¸¦ »ç¿ëÇϽʽÿÀ. Á÷¿ø -> MK_ACCESSORS (QW (À̸§ ¿ªÇÒ ±Þ¿©)); # ±× »çÀÌ¿¡, °¡±î¿î Äڵ忡¼! # class :: accessor´Â new ()¸¦ Á¦°øÇÕ´Ï´Ù. ³» $ mp = foo-> new ({name => marty ", role =>"japh "}); ³» $ JOP = $ MP-> ¿ªÇÒ; # $ MP -> {¿ªÇÒ} $ MP-> ±Þ¿© (400000); # $ MP -> {SALARY} = 400000 (³ª´Â ¿øÇÑ´Ù) # ³» @info = @ {$ mp} {qw (À̸§ ¿ªÇÒ)} my @info = $ mp-> get (qw (name ¿ªÇÒ)); # $ MP -> {SALARY} = 400000 $ MP-> ¼¼Æ® ( '±Þ¿©', 400000);ÀÌ ¸ðµâÀº ¼ö¾÷¿¡ ´ëÇÑ Á¢±Ù ÀÚ / ÇÙ½ÉÀÚ¸¦ ÀÚµ¿À¸·Î »ý¼ºÇÕ´Ï´Ù. ÃÖ´ë ½Ã°£Àº Àý´Ü ¹× ºÙ¿© ³Ö±âÀÇ ¿îµ¿ÀÔ´Ï´Ù. ´ç½ÅÀº ´ë°³ ´ÙÀ½°ú °°ÀÌ ÀÏ·ÃÀÇ ¹æ¹ýÀ¸·Î ¹Ù¶÷ÀÌ ºÎ¾îÁ³½À´Ï´Ù : ÇÏÀ§ À̸§ {My $ self = shift; if (@_) {$ self-> {name} = $ _ ; } $ self-> {name}¸¦ ¹ÝȯÇÕ´Ï´Ù. } Sub Salary {My $ self = shift; if (@_) {$ self-> acry} = $ _ ; } $ self-> {salary}¸¦ µ¹·ÁÁÝ´Ï´Ù. } # µî ... ´ç½ÅÀÇ °³Ã¼ÀÇ °¢ µ¥ÀÌÅÍ¿¡ ´ëÇÑ Çϳª´Â ÇϳªÀÔ´Ï´Ù. ÀϺδ °íÀ¯ ÇÒ ¼ö ÀÖÁö¸¸ °¡Ä¡ °Ë»ç ¹× Ưº° ½ºÅ丮Áö Æ®¸¯À» ¼öÇàÇÏ´Â µ¿¾È ´ëºÎºÐÀº ´Ü¼øÈ÷ ¹Ýº¹ÀûÀ¸·Î ¿¬½À ÇÒ °ÍÀÔ´Ï´Ù. ¹Ýº¹Àû ÀÎ ÄÚµåÀÇ ¹«¸®¸¦ °¡Áú»Ó¸¸ ¾Æ´Ï¶ó ½ÇÁ¦ Æ®·¹À̵尡ÀÖ´Â °Íµµ ´Ü¼øÈ÷ °ÔÀ¸¸¥ ½ºÅ¸ÀÏÀÌ ¾Æ´Ï¶ó ½ÇÁ¦ travingyÀÔ´Ï´Ù. ¸ðµâÀ» Class :: AccessorÀÇ ÇÏÀ§ Ŭ·¡½º¸¦ ¸¸µé°í mk_accessors ()·Î ¾×¼¼½º ÀÚ Çʵ带 ¼±¾ðÇÏ¸é »ç¿ëÀÚ Á¤ÀÇ ÇÒ ¼öÀÖ´Â ÀÚµ¿ »ý¼º µÈ Á¢±Ù ÀÚ ¼¼Æ®·Î ÀÚ½ÅÀ» ãÀ¸½Ê½Ã¿À! ±âº» ¼³Á¤Àº ¸Å¿ì °£´ÜÇÕ´Ï´Ù : ÆÐÅ°Áö My :: Class; ±âº» QW (Ŭ·¡½º :: ¾×¼¼¼)¸¦ »ç¿ëÇϽʽÿÀ. My :: Class-> MK_Accessors (QW (Foo Bar Car)); ¿Ï·á. My :: Class¿¡´Â ÀÌÁ¦ °£´ÜÇÑ foo (), bar () ¹× car () Á¢±ÙÀÚ°¡ Á¤ÀǵǾî ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Ŭ·¡½º :: Á¢±Ù ÀÚ °ü·Ã ¼ÒÇÁÆ®¿þ¾î