¿À±¸ È÷·Î´ÜÁö ÀÌ»óÀû ÀÏ ¼öÀÖ´Â µ¥ÀÌÅÍ °ËÁõ ¾ÆÀ̵ð¾î! | |
Áö±Ý ´Ù¿î·Îµå |
¿À±¸ È÷·Î ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Al Newkirk
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~awncorp/
¿À±¸ È÷·Î ű×
¿À±¸ È÷·Î ¼³¸í
±×³É ÀÌ»óÀû ÀÏ ¼öÀÖ´Â µ¥ÀÌÅÍ °ËÁõ ¾ÆÀ̵ð¾î! OOGLY ¸ðµâÀº µ¥ÀÌÅÍ À¯È¿¼º °Ë»ç¿Í ´Ù¸¥ Á¢±Ù ¹æ½ÄÀ¸·Î ¸¶¸¥ (ÀÚ½ÅÀ» ¹Ýº¹ÇÏÁö ¸¶½Ê½Ã¿À) µ¥ÀÌÅÍ À¯È¿¼º °Ë»ç ±ÔÄ¢À» ´Ü¼øÈÇÏ°í Áß¾Ó ÁýÁßÈÇÏ·Á°í ½ÃµµÇÕ´Ï´Ù. Âü°í »çÇ×À» È®ÀÎÇϽʽÿÀ. À¯È¿¼º °Ë»ç ·çƾÀ» Á¦°øÇϱâ À§ÇØÀÌ ¸ðµâÀÇ Àǵµ°¡ ¾Æ´Ï¶ó ´ë½Å ´Ü¼øÇÑ À¯È¿¼º °Ë»ç È帧 Á¦¾î¸¦ Á¦°øÇÏ°í ÄÚµå Àç»ç¿ëÀ» ÃËÁøÇÕ´Ï´Ù. ´ÙÀ½Àº ±× ¿¹ÀÔ´Ï´Ù ... myApp :: À¯È¿¼º °Ë»ç¸¦ »ç¿ëÇϽʽÿÀ. MY $ APP = myApp :: À¯È¿¼º °Ë»ç -> »õ (\ % params); if ($ app-> À¯È¿¼º °Ë»ç ( '·Î±×ÀÎ', '¾ÏÈ£')) {...} else {print Join "\ n", @ {$ app-> ¿À·ù}; } Package MyApp :: À¯È¿¼º È®ÀÎ OGLY QW / MIXIN Çʵå /; # mixin Áö½Ã¾î ¹Í½º¸¦ »ç¿ëÇÏ¿© ´Ù¸¥ ±ÔÄ¢ #¿¡ Æ÷Ç﵃ ¼öÀÖ´Â sortof ÅÛÇø´À» Á¤ÀÇÇÕ´Ï´Ù. '=> {Çʼö => 1, min_length => 4, max_length => 255}; # ¸Å°³ º¯¼ö`login`ÀÇ µ¥ÀÌÅÍ À¯È¿¼º °Ë»ç ±ÔÄ¢À» Á¤ÀÇÇÕ´Ï´Ù.`login`´Â`login`°¡ 4-255 ÀÚ »çÀÌ¿¡ ÀÖ°í # Àû¾îµµ ÇϳªÀÇ ¹®ÀÚ¿Í ¼ýÀÚ Çʵ尡 ÀÖÀ½À» ±â·ÏÇؾßÇÕ´Ï´Ù. '=> {label =>'»ç¿ëÀÚ ·Î±×ÀÎ ', mixin =>'default ', Validation => sub {my ($ self, $ this, $ params) = @_; My ($ name, $ value) = ($ this -> {label}, $ params -> {login}); ($ value = ~ / / || $ value = ~ / / ); }}; # # ÀÌÀü¿¡ Á¤ÀÇ µÈ Çʵå`login`¸¦ mixIn (ÅÛÇø´) Çʵå·Î »ç¿ëÇÏ¿© 'password'=> {mixin_field => login ', label =>'»ç¿ëÀÚ ¾ÏÈ£ '}À» »ç¿ëÇÏ¿© µ¥ÀÌÅÍ À¯È¿¼º °Ë»ç ±ÔÄ¢À» Á¤ÀÇÇÕ´Ï´Ù. ¹× ÀÌÁ¦ µÎ ¹ø°¿Í ÃÖÁ¾ ÇàÀ§¸¦ À§Çؼ´Â ÆÐÅ°Áö ¿ÜºÎÀÇ Ogly¸¦ »ç¿ëÇÕ´Ï´Ù. #! / usr / bin / perl Ogly qw / : all /; ³» $ i = oogly (mixins => {default => {Çʼö => 1, min_length => 4, max_length => 255}}, fields => {login => {label => '»ç¿ëÀÚ ·Î±×ÀÎ', mixin => 'Default', Validation => sub {my ($ self, $ this, $ params) = @_; my ($ name, $ value) = ($ this -> {name}, $ params -> {login}) ; $ self-> ¿À·ù ($ this ", Çʵå $ À̸§Àº Àû¾îµµ ÇϳªÀÇ ¹®ÀÚ¿Í ¼ýÀÚ")°¡ Æ÷ÇԵǾî¾ßÇÕ´Ï´Ù. ($ value! ~ / / $ °ª! ~ / / );}}, password => {mixin_field => ·Î±×ÀÎ ', label =>'»ç¿ëÀÚ ¾ÏÈ£ '}},); # Áß¿äÇÏ°í $ i-> ¼³Á¤ ÇÔ¼ö·Î ¸¸µç »õ ÀνºÅϽº¸¦ ÀúÀåÇÕ´Ï´Ù $ o = $ i-> ¼³Á¤ ({login => root ', password =>'... '}); if ($ o-> À¯È¿¼º °Ë»ç) {...} ¿ä±¸ »çÇ× : ¡¤ Perl.
¿À±¸ È÷·Î °ü·Ã ¼ÒÇÁÆ®¿þ¾î