| ÈÄÅ© :: lexwrap. ¾îÈÖ ÀûÀ¸·Î ½ºÄÚÇÁ µÈ ¼ºê ·çƾ Æ÷Àå±â |
Áö±Ý ´Ù¿î·Îµå |
ÈÄÅ© :: lexwrap. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Alexandr Ciornii
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~chorny/
ÈÄÅ© :: lexwrap. ű×
ÈÄÅ© :: lexwrap. ¼³¸í
¾îÈÖ ÀûÀ¸·Î ½ºÄÚÇÁ µÈ ¼ºê ·çƾ Æ÷Àå±â ÈÄÅ© :: LexwrapÀº ±âÁ¸ ¼ºê ·çƾ ÁÖÀ§¿¡ »çÀü ¶Ç´Â »çÈÄ ·¡ÆÛ (¶Ç´Â ¸ðµÎ)¸¦ ¼³Ä¡ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÀÌ ¿ë·®À» Á¦°øÇÏ´Â ´Ù¸¥ ¸ðµâ°ú ´Þ¸® (¿¹ : ÈÅ :: PREANDPOST ¹× HOOK :: WRAPEB), ÈÅ :: LEXWWRAP´Â Ç¥ÁØ ¹ß½ÅÀÚ ±â´ÉÀÌ ·¡ÇÎ µÈ ¼ºê ·çƾ¿¡¼ ¿Ã¹Ù¸£°Ô ÀÛµ¿ÇÏ´Â ¹æ½ÄÀ¸·Î ·¡ÆÛ¸¦ ±¸ÇöÇÕ´Ï´Ù. Synopsis »ç¿ë ÈÄÅ© :: Lexwrap; Sub Doit {Print ""; {my => "data"}} scoped : {wrap doit, pre => sub {print " \ n"}, post => sub {print " \ n" ...¿¡ $ _ = 9; }; MY $ ÀϽÃÀûÀ¸·Î = ·¦ DOIT, POST => SUB {PRINT " \ n"}, pre => sub {print " \ n"}; @args = (1,2,3); doit (@args); # pre2-> pre1-> doit-> post1-> post2} @args = (4,5,6); doit (@args); # pre1-> doit-> post1 ¿ä±¸ »çÇ× : ¡¤ Perl.
ÈÄÅ© :: lexwrap. °ü·Ã ¼ÒÇÁÆ®¿þ¾î