LValue. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Mons Anderson
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mons/
LValue. ű×
LValue. ¼³¸í
LValue ¼ºê ·çƾÀ» ½±°Ô »ç¿ëÇϽʽÿÀ LValue´Â LValue ¼ºê ·çƾÀ» ½±°Ô »ç¿ëÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. LValue SubÀÇ ³¡ ºÎºÐ¿¡ Get ¹× Set Blocks¸¦ »ç¿ëÇϽʽÿÀ. ÁÖÀÇ »çÇ×°£¿¡ ½°Ç¥ ¶Ç´Â ¼¼¹ÌÄÝ·ÐÀÌ Çã¿ëµÇÁö ¾Ê½À´Ï´Ù (¼¼¹ÌÄÝ·Ð ¸¸ ¸¶Áö¸· ¼º¸í¼ ¸¸ ¼öÇà ÇÒ °æ¿ì) LValue¸¦ »ç¿ëÇϽʽÿÀ. sub mysub : lvalue {get {return return 'return return'exten '; } set {my $ set_value = shift; # ...}} mysub () = 'Å×½ºÆ®'; #´Â Àμö 'Å×½ºÆ®'·Î ¼³Á¤µÈ ºí·ÏÀ» È£ÃâÇÕ´Ï´Ù. mysub () Àμâ; #Àº Àμö¾øÀÌ BLOCKÀ» È£ÃâÇÕ´Ï´Ù. °á°ú°¡ ÀμâµÇ±â À§ÇØ ¹ÝȯµË´Ï´Ù. Sub ReadOnly : lvalue {get {Return 'Readonly °ª'; }} freadOnly ()¸¦ ÀμâÇÕ´Ï´Ù. # È®ÀÎ readonly = 'test'; # sub writeonly : lvalue {set {my $ set_value = shift; # ...}} writeonly = 'test'; # ok Àμâ writeonly (); # ¿ä±¸ »çÇ׿¡ ½ÇÆÐÇÕ´Ï´Ù : ¡¤ Perl.
LValue. °ü·Ã ¼ÒÇÁÆ®¿þ¾î