| Ŭ·¡½º :: ¼ÒÇ° Ŭ·¡½º :: Props´Â ¿É¼ÇÀÌÀÖ´Â LValue Á¢±ÙÀÚ¸¦ ±¸ÇöÇÏ´Â PragmaÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: ¼ÒÇ° ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Domizio Demichelis
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~domizio/CGI-Application-Plus-1.21/lib/CGI/Application/CheckRM.pm
Ŭ·¡½º :: ¼ÒÇ° ű×
Ŭ·¡½º :: ¼ÒÇ° ¼³¸í
Class :: Props´Â ¿É¼ÇÀÌÀÖ´Â LValue Á¢±ÙÀÚ¸¦ ±¸ÇöÇÏ´Â PragmaÀÔ´Ï´Ù. Class :: Props´Â ¿É¼ÇÀ¸·Î LValue Á¢±ÙÀÚ¸¦ ±¸ÇöÇÏ´Â PragmaÀÔ´Ï´Ù .SynopsisClass ÆÐÅ°Áö MyClass; # ¿É¼Ç¾øÀÌ »ý¼ºÀÚ ±¸Çö Ŭ·¡½º :: constr; # ¿É¼Ç¾øÀÌ ¾×¼¼½º ÀÚ (¹®ÀÚ¿ ¸ñ·Ï) Ŭ·¡½º :: Props @Prop_NAMES¸¦ »ç¿ëÇϽʽÿÀ. # @prop_names (1) # À¯È¿¼º °Ë»ç ¹× ±âº»°ª (Çؽà ÂüÁ¶ ¸ñ·Ï) Ŭ·¡½º :: props {name => 'digits', Validation => sub {/ ^ d + z /}¸¦ »ç¿ëÇÕ´Ï´Ù. > 10}; # ÀϹÝÀûÀÎ Àüü ¿É¼ÇÀÌÀÖ´Â ¼Ó¼º ±×·ì :: Props {name => @ prop_names2, # @ prop_names2 (1) default => sub {$ _ -> other_default}, validation => sub {/ w + / }, protected => 1, no_strict => 1, allowed => qr / :: allowed_sub $ /}; # À§ÀÇ ÇÑ ´Ü°è (¹®ÀÚ¿ ¹× Çؽà ÂüÁ¶ ¸ñ·Ï) Ŭ·¡½º :: Props @Prop_NAMES, # @PROP_NAMES (1) {name => 'digits', Validation => sub {/ ^ d + /} , default => 10}, {name => @ prop_names2, # => $ _ -> other_default}, À¯È¿¼º °Ë»ç => sub {/ w + /}, º¸È£ => 1, no_strict => 1, Çã¿ë => qr / :: allowed_sub $ /}; # (1)Àº ÄÄÆÄÀϽà 10½Ã¿¡ È¿°ú°¡ÀÖ´Â ½ÃÀÛ ºí·Ï¿¡¼ ¼³Á¤ÇؾßÇÕ´Ï´Ù. $ object = myClass-> »õ (ÀÚ¸® => '123'); $ °´Ã¼ -> ¼ýÀÚ = '123'; myClass-> ¼ýÀÚ = '123'; # $ °´Ã¼ -> ¼ýÀÚ ( '123'); # ÀÌÀü ¹æ¹ýÀº $ d = $ °´Ã¼ -> ¼ýÀÚ¸¦ Áö¿øÇß½À´Ï´Ù. # $ d == 123 $ d = $ myclass :: digits # $ d == 123 Undef $ object-> ¼ýÀÚ # $ °´Ã¼ -> ¼ýÀÚ == 10 (±âº»°ª) # ÀÌ°ÍÀº croak $ object-> digits = "xyz "; myClass-> ¼ýÀÚ = "xyz"; # ÀÌ°ÍÀº accesor whithout crocoaking $ myclass :: xyz ";ÀÌ Pragma´Â Ŭ·¡½ºÀÇ ¼Ó¼º¿¡ ´ëÇÑ LValue Á¢±Ù ÀÚ ¸Þ¼Òµå¸¦ ½±°Ô ±¸ÇöÇÕ´Ï´Ù (lvalue´Â ÂüÁ¶¸¦ ¸¸µé ¼ö ÀÖ°í Á¤±Ô½Ä¿¡ ´ëÇÑ ÂüÁ¶¸¦ Àû¿ë ÇÒ ¼ö ÀÖÀ½À» ÀǹÌÇÕ´Ï´Ù. ±×°Í¿¡; ¸ðµâÀÌ ÄÄÆÄÀÏ µÈ ½Ã°£¿¡ °¡Á®¿Ã ¼öÀÖ´Â ¸Å¿ì È¿À²ÀûÀÎ ±â´É ÅÛÇø®Æ® ÀÎ "¾Ë·ÁÁø ¹®Á¦"ÂüÁ¶). "ÀÌ ±â¼úÀº ÄÄÆÄÀÏ ½Ã°£ ¹× ¸Þ¸ð¸® »ç¿ëÀ» ¸ðµÎ ÀúÀåÇÏ°í ±¸¹® °Ë»ç°¡ ÄÄÆÄÀÏ µÈ ½Ã°£¿¡ ¹ß»ýÇϱ⠶§¹®¿¡ ¿À·ù°¡ ¹ß»ýÇϱ⠽±½À´Ï´Ù." (PerlRef ManPageÀÇ "±â´É ÅÛÇø´"¿¡¼ Àοë). À̸§°ú °á±¹ ±âº»°ª, À¯È¿¼º °Ë»ç ÄÚµå ¹× ±âŸ Accessor ¸Þ¼µå°¡ Ŭ·¡½º¿¡ ½ºÄ®¶ó¸¦ ¸¸µå´Â À̸§°ú °á±¹ ±âº»°ª, À¯È¿¼º °Ë»ç ÄÚµå ¹× ±âŸ ¿É¼ÇÀ» ¼±¾ðÇÏ¿© Á¢±ÙÀÚ¸¦ ¿ÏÀüÈ÷ ÀÛ¼ºÇÏÁö ¾Ê¾ÆµµµË´Ï´Ù. À̸¦ ±¸ÇöÇÏ°í (¿¹ : $ class :: any_property) ¼³Á¤ÇÏ´Â ¿É¼ÇÀ» »ç¿ëÇÏ¿© ¼³Á¤ / °¡Á®¿É´Ï´Ù.ÀÌ ¸ðµâÀ» »ç¿ëÇϸé "°ÔÀ¸¸¥"µ¥ÀÌÅÍ ÄÄÇ»Æà (±âº» ¿É¼Ç ÂüÁ¶)À» Çã¿ëÇÕ´Ï´Ù (±âº» ¿É¼Ç ÂüÁ¶) .requirements : ¡¤ perl ¹öÀü> = 5.6.1 ¼³Ä¡ : CPAN perl -mcpan -e 'ootools'standard ¼³Ä¡ÀÌ ÆÄÀÏÀÌÀÖ´Â µð·ºÅ丮¸¦ ¼³Ä¡ÇϽʽÿÀ. type : perl makefile.pl make Å×½ºÆ®¸¦ ¼³Ä¡ÇϽʽÿÀ.
Ŭ·¡½º :: ¼ÒÇ° °ü·Ã ¼ÒÇÁÆ®¿þ¾î