| ³ØŸÀÌ :: Çؽà :: Keysmask. TIE :: HASH :: KEYSMASK - ¸¶½ºÅ© ±â´Éº°·Î Á¦¾î Å° ¾Ù¸®¾î½Ì, ¿¹¸¦ µé¾î, ij¸¯ÅÍ ±¸º°ÀÇ °æ¿ì¸¦ »ý·«ÇϽʽÿÀ. |
Áö±Ý ´Ù¿î·Îµå |
³ØŸÀÌ :: Çؽà :: Keysmask. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Josef Schnbrunner
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~schoejo/Tie-Hash-KeysMask-0.01/lib/Tie/Hash/KeysMask.pm
³ØŸÀÌ :: Çؽà :: Keysmask. ű×
³ØŸÀÌ :: Çؽà :: Keysmask. ¼³¸í
TIE :: HASH :: KEYSMASK - ¸¶½ºÅ© ±â´Éº°·Î Á¦¾î Å° ¾Ù¸®¾î½Ì, ¿¹¸¦ µé¾î, ij¸¯ÅÍ ±¸º°ÀÇ °æ¿ì¸¦ »ý·«ÇϽʽÿÀ. TIE :: HASH :: KEYSMASK - ¸¶½ºÅ© ±â´Éº°·Î Á¦¾î Å° ¾Ù¸®¾î½Ì, ¿¹¸¦ µé¾î, ¹®ÀÚ ±¸º°ÀÇ »ç·Ê¸¦ »ý·«ÇϽʽÿÀ. ½Ä ³ëÇÁ°¡ ³ØŸÀÌ :: Çؽà :: Å° °¡½º; MY $ MASK = SUB {...}; ³ØŸÀÌ % argh, '³ØŸÀÌ :: Çؽà :: keymask', $ ¸¶½ºÅ©, ´õ ¸¹Àº ³íÀï; Å° ¸¶½ºÅ© ÇÔ¼ö $ mask´Â $ k => $ mask -> ($ k, ´õ ¸¹Àº Àμö) $ {$ k}ÀÌ $ argh {$ mask- > ($ k, ´õ ¸¹Àº Àμö)} $ argh {$ k} = $ v $ argh {$ mask -> ($ k, ´õ ¸¹Àº Àμö)} = $ VIF Å° ¸¶½ºÅ©¸¦ ¼±ÅÃÇϽʽÿÀ. {UC $ _ } Å°°¡ Å°ÀÇ °æ¿ì°¡¾ø´Â ¿ä¼Ò¿¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇÏÀ§ {} ´ë½Å¿¡ ƯÁ¤ Ç׸ñÀÌ ÄÚµå·Î ¹ø¿ª µÉ ¼ö ÀÖ½À´Ï´Ù. ¹ø¿ªÀº 'lc'=> sub {lc $ _ } 'uc'=> sub {uc $ _ } % m => sub {$ m {$ _ }? $ m {$ _ } : $ _ } Ŭ·¡½º ¸Þ¼Òµå ÄÚµå ¸ÊÀÌ ¹ø¿ªÀ» °ü¸®ÇÕ´Ï´Ù. ±â»Ú°Ô »ý°¢µÇ¸é ÇϳªÀÇ ¹ø¿ªÀ» Ãß°¡ ÇÒ ¼ö ÀÖ°í ÀÚ½ÅÀÇ ¹ø¿ªÀ» Ãß°¡ ÇÒ ¼ö ÀÖ½À´Ï´Ù.ÀÌ Å¬·¡½º´Â ³ØŸÀÌ¿¡¼ »ó¼Ó¹Þ½À´Ï´Ù. ³ØŸÀÌ Çؽà :: ¹ÀÎ Çؽð¡ ¸í·ÉÀ» »ç¿ëÇÏ¿© À͸íÀ¸·Î À͸íÀ¸·Î ¾òÀ» ¼ö ÀÖ½À´Ï´Ù 'tie :: hash :: Keymask'-> Newhash (ÇÏÀ§ {...}, ´õ ¸¹Àº Àμö) ´º¼¦ÀÇ º»¹®¿¡¼ ³ØŸÀÌ ±¸¹® È£Ã⠳؟À̸¦ ¹«½ÃÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
³ØŸÀÌ :: Çؽà :: Keysmask. °ü·Ã ¼ÒÇÁÆ®¿þ¾î