µ¥ÀÌÅÍ :: rmap.

Àç±Í ¸Ê, µ¥ÀÌÅÍ ±¸Á¶¿¡ ºí·Ï Àû¿ë
Áö±Ý ´Ù¿î·Îµå

µ¥ÀÌÅÍ :: rmap. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Brad Bowman
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~bowmanbs/Regexp-Genex-0.07/lib/Regexp/Genex.pm

µ¥ÀÌÅÍ :: rmap. ű×


µ¥ÀÌÅÍ :: rmap. ¼³¸í

Àç±Í ÀûÁöµµ, ºí·ÏÀ» µ¥ÀÌÅÍ ±¸Á¶¿¡ Àû¿ë µ¥ÀÌÅÍ :: RMAP´Â µ¥ÀÌÅÍ ±¸Á¶ ¸ñ·Ï (·ÎÄ÷Π$ _ °¢ ¿ä¼Ò¿¡ ·ÎÄ÷Π¼³Á¤)À» ¹Ýº¹ÀûÀ¸·Î Æò°¡ÇÏ°í ±×·¯ÇÑ Æò°¡ °á°ú·Î ±¸¼ºµÈ ¸ñ·ÏÀ» ¹ÝȯÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. $ _ elements.data:: rmapÀ» ¼öÁ¤ÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇöÀç ÇؽÃ, ¹è¿­, ½ºÄ®¶ó ¹× GLOB ÂüÁ¶ À¯ÇüÀ» Æ®·¡¹öÇÏ°í ´Ù¸¥ ±âŸ¸¦ ¹«½ÃÇÕ´Ï´Ù. ¾î¶² RMAP_ * ·¡ÆÛ°¡ »ç¿ëµÇ´ÂÁö¿¡ µû¶ó ºí·ÏÀº ½ºÄ®¶ó °ª, ¹è¿­, ÇؽÃ, ÂüÁ¶, ¸ðµç ¿ä¼Ò ¶Ç´Â »ç¿ëÀÚ Á¤ÀÇ °¡´ÉÇÑ Á¶ÇÕ¸¸À» À§ÇØ È£ÃâµË´Ï´Ù. µ¥ÀÌÅÍ ±¸Á¶ ¸ñ·ÏÀº ±íÀÌ Ã¹ ¹ø° ¹æ½ÄÀ¸·Î ¼±ÁÖ¹®À» ÁøÇàÇÕ´Ï´Ù. Áï, ÄÜÅ×ÀÌ³Ê ±âÁØ¿¡ ´ëÇؼ­´Â ºí·ÏÀÌ ¿ä¼Ò¶ó°í ºÒ¸®´Â °ÍÀÔ´Ï´Ù. ÇؽÃÀÇ °ªÀº ÀϺΠÀÀ¿ë ÇÁ·Î±×·¥¿¡ ¿µÇâÀ» ¹ÌÄ¥ ¼öÀÖ´Â ÀϹÝÀûÀÎ "°ª"¼ø¼­·Î À̼۵˴ϴÙ. "ÄÆ"¼­ºê ·çƾÀÌ ºí·Ï¿¡¼­ È£ÃâµÇ¸é ÇØ´ç ºÐ±âÀÇ ¼øȸ°¡ ÁßÁöµË´Ï´Ù. ¿ä¼Ò (¶Ç´Â ÇØ´ç ÇÏÀ§ ¿ä¼Ò)¸¦ ¿ä±¸ÇÏÁö ¾Ê½À´Ï´Ù. °ª°ú Àý´ÜÀ» µ¿½Ã¿¡ ¹ÝȯÇÏ·Á¸é ¹Ýȯ ¸ñ·ÏÀ» »è°¨Çϱ⠸¸ÇϸéµË´Ï´Ù. ÄÆ ( 'Ãß°¡', '~', '¹Ýȯ'). ºí·ÏÀÇ Ã¹ ¹ø° ¸Å°³ º¯¼ö´Â ¼øȸÀÇ »óŸ¦ À¯ÁöÇÏ´Â °´Ã¼ÀÔ´Ï´Ù. ÀÌ °´Ã¼¿¡¼­ »ç¿ëÇÒ ¼öÀÖ´Â ¹æ¹ýÀº ¾Æ·¡ÀÇ "State object"¿¡¼­ ¼³¸íÇÕ´Ï´Ù. ½Ä ³ëÇÁ ½º D $ Perl -mdata :: RMAP -E 'Àμâ rmap {$ _} 1, , \ 4, "\ n"1234 $ perl -mdata :: rmap = : ¸ðµç rmap_all {print (ref ($ _) || "?"), "\ n"} \ @array, \ % ÇؽÃ, \ * glob; # Ãâ·Â (Âü°í : ±Û·Îºê´Â Ç×»ó ½ºÄ®¶ó°¡ ÀÖ½À´Ï´Ù, µû¶ó¼­ ¸¶Áö¸· µÎ Ç׸ñ) # ¹è¿­ # Çؽà # GLOB # ½ºÄ®¶ó #? # ´ë¹®ÀÚ ÀÙ ¼Ó $ ARRAY = ; $ hash = {key => "°ª"}; RMAP {$ _ = UC $ _; } $ ARRAY, $ hash; µ¥ÀÌÅÍ :: Dumper; $ data :: dumper :: terse = 1; $ data :: Dumper :: µé¿© ¾²±â = 0; Àμ⠴ýÆÛ ($ ¾î·¹ÀÌ), "", ´ýÆÛ ($ ÇؽÃ), "\ n"; # Ãâ·Â # { 'Å°'=> '°ª'} # °£´ÜÇÑ ¹è¿­ ´ýÆÛ. # $ self-> ÀçÆò°¡ ¸Þ¼Òµå¸¦ »ç¿ëÇÏ¿© Traversal Order ($ dump) = rmap_to {return " '$ _'"¸¦ ref ($ _) "ÇÏÁö ¾ÊÀ¸¸é? # ½ºÄ®¶ó´Â ÀοëÇÏ°í ³» $ self = shift¸¦ ¹ÝȯÇÕ´Ï´Ù. # $ self-> recurse¸¦ »ç¿ëÇÏ¿© °á°ú¸¦ Àâ°í ·¡ÇÎ ''; } ¹è¿­ | °ª, , 4]], 5]; "$ dump \ n"À» ÀμâÇϽʽÿÀ; # Ãâ·Â # , '4']]], '5'] ¿ä±¸ »çÇ× : ¡¤ Perl.


µ¥ÀÌÅÍ :: rmap. °ü·Ã ¼ÒÇÁÆ®¿þ¾î