Ŭ·¡½º :: ¹æ¹®ÀÚ

¹æ¹®ÀÚ ¹× ¹Ýº¹ÀÚ È®Àå Ŭ·¡½º :: ÅÛÇø´
Áö±Ý ´Ù¿î·Îµå

Ŭ·¡½º :: ¹æ¹®ÀÚ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Ken MacLeod
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~kmacleod/

Ŭ·¡½º :: ¹æ¹®ÀÚ Å±×


Ŭ·¡½º :: ¹æ¹®ÀÚ ¼³¸í

¹æ¹®ÀÚ ¹× ¹Ýº¹ÀÚ È®Àå Ŭ·¡½º :: ÅÛÇø´ Ŭ·¡½º :: ¹æ¹®ÀÚ´Â ¹æ¹®ÀÚ ¹× ¹Ýº¹ÀÚ µðÀÚÀÎ ÆÐÅÏÀ» »ç¿ëÇϱâÀ§ÇÑ ¹æ¹ýÀ» Á¤ÀÇÇÏ¿© Ŭ·¡½º ¿ë Ŭ·¡½º :: ÅÛÇø´¿¡¼­ Á¦°øÇÏ´Â getter / setter ÇÔ¼ö¸¦ È®ÀåÇÏ´Â perl ¸ðµâÀÔ´Ï´Ù. ¸ðµç Iterator ¸Þ¼­µå´Â Ŭ·¡½º :: ITER¿¡¼­ »ó¼ÓµË´Ï´Ù. iter.class´Â »õ Ŭ·¡½ºÀÇ À̸§À̸ç,ÀÌ Å¬·¡½ºÀÇ ¼öÆÛ Å¬·¡½º (@ISA¸¦ Á¤ÀÇ ÇÒ °ÍÀÔ´Ï´Ù). ÅÛÇø´Àº Ŭ·¡½º :: ÅÛÇø´¿¡¼­ Á¤ÀÇ µÈ´ë·ÎÀÔ´Ï´Ù. $ obj -ÀÌ °´Ã¼ÀÇ »õ ¹Ýº¹ÀÚ¸¦ ¹ÝȯÇÕ´Ï´Ù. ºÎ¸ð, ¹è¿­ ¹× »öÀÎÀÌ Á¤ÀǵÇÁö ¾ÊÀº °æ¿ì »õ ¹Ýº¹ÀÚ°¡ ·çÆ® ¿ÀºêÁ§Æ®·Î Ãë±ÞµË´Ï´Ù. Class :: Iter¿¡¼­ »ó¼Ó ¶Ç´Â ¾Æ·¡ Á¤ÀÇ µÈ´ë·Î $ Iter ¹× $ OBJÀÇ ¹æ¹ýÀº µ¿ÀÏÇÕ´Ï´Ù. ¼ö¶ô ¹æ¹ýÀº ù ¹ø° Àμö¿Í µ¿ÀÇÇϵµ·Ï Àü´Þ µÈ ³ª¸ÓÁö Àμö¿Í °°Àº $ Self¿Í $ Self·Î ÄݹéÀ» $ Self·Î ÄݹéÀ¸·Î ¸¸µì´Ï´Ù. ÀÌ°ÍÀº ´ÙÀ½°ú °°ÀÌ ±¸ÇöµË´Ï´Ù : Sub Accept {My $ self = shift; ³» $ visitor = shift; $ ¹æ¹®ÀÚ -> view_myclass ($ self, @_); } Children_Accept´Â ³»¿ë ¸í¸í µÈ ¹è¿­ ÇʵåÀÇ °¢ °³Ã¼¿¡¼­ Çã¿ëÇÕ´Ï´Ù. Children_Accept_ArrayMember´Â ArrayMember¿¡¼­ µ¿ÀÏÇÏ°Ô ¼öÇàÇÕ´Ï´Ù. ¹Ýº¹ÀÚÀÇ Accept ¸Þ¼­µå´Â Ç×»ó ¹Ýº¹±â¸¦ »ç¿ëÇÏ¿© ´Ù½Ã È£ÃâÇÕ´Ï´Ù. ¹Ýº¹¼ºÀÌ ¾Æ´Ñ ºñ ¹Ýº¹ÀÚ¿¡¼­ ¼ö¶ôÀ» È£ÃâÇÏ¸é ºñ ¹Ýº¹ÀÚ¸¦ »ç¿ëÇÏ¿© ´Ù½Ã ÀüÈ­ÇÕ´Ï´Ù. ÈÄÀÚ´Â ÈξÀ ´õ ºü¸£°í °¢ ¹è¿­ ±â´É°ú °°Àº POP ACTÀÔ´Ï´Ù .AS_StringÀº Arture Contents ($ ext)·Î ¼öÁ¤ÇÒ ¼öÀÖ´Â ¹è¿­ ÇʵåÀÇ ¿¬°áµÈ ½ºÄ®¶ó °ªÀ» ¹ÝȯÇÕ´Ï´Ù. ArrayMember_As_StringÀº ArrayMember¿¡ ´ëÇØ µ¿ÀÏÇÏ°Ô ¼öÇàµË´Ï´Ù .ViSititor´Â Scally_Accept ¹× AS_String ¿ëÀ¸·Î ½ºÄ®¶ó¸¦ ó¸®ÇÕ´Ï´Ù. children_acceptÀÇ °æ¿ì, ¹æ¹®Àڴ Ŭ·¡½º Ŭ·¡½º Ŭ·¡½º :: ½ºÄ®¶ó :: as_stringÀÇ °æ¿ì ½ºÄ®¶ó°¡ÀÖ´Â iter¸¦ ¸¸µì´Ï´Ù. as_stringÀÇ °æ¿ì, $ context -> {cdata_mapper}°¡ Á¤ÀǵÇÁö ¾ÊÀº °æ¿ì ¹æ¹®ÀÚ°¡ ¹®ÀÚ¿­À» »ç¿ëÇÕ´Ï´Ù. ¾î¶² °æ¿ì¿¡´Â CDATA_MAPPER ¼­ºê ·çƾÀ» ½ºÄ®¶ó¿Í ³ª¸ÓÁö Àμö·Î È£Ãâ ÇÑ °á°ú¸¦ ¹ÝȯÇÕ´Ï´Ù. ½ÇÁ¦ ±¸ÇöÀº ´ÙÀ½°ú °°½À´Ï´Ù. {$ context -> {cdata_mapper}} ($ scalar, @_); ½Ã³ñ½Ã½º Ŭ·¡½º :: ¹æ¹®ÀÚ; Visitor_Class 'Ŭ·¡½º', '½´ÆÛ', {ÅÛÇø´}; Visitor_Class 'Ŭ·¡½º', '½´ÆÛ', ; $ obj = class-> new (); $ iter = $ obj-> iter; $ iter = $ obj-> iter ($ »óÀ§, $ ¹è¿­, $ index); $ obj-> ¼ö¶ô ($ ¹æ¹®ÀÚ, ...); $ obj-> children_accept ($ ¹æ¹®ÀÚ, ...); $ obj-> children_accept_arraymember ($ visitor, ...); $ obj-> push_arraymember ($ value ); $ value = $ obj-> pop_arraymember; $ obj-> as_string (]); $ obj-> arraymember_as_ashing (]); $ iter´Â Ŭ·¡½º¿¡¼­ ´ÙÀ½À» »ó¼ÓÇÕ´Ï´Ù :: iter : $ iter-> ºÎ¸ð; $ iter-> is_iter; $ iter-> root; $ iter-> rootpath; $ iter-> ´ÙÀ½; $ iter-> at_end; $ iter-> ´ë¸®ÀÎ; $ iter-> is_same ($ obj); ¿ä±¸ »çÇ× : ¡¤ Perl.


Ŭ·¡½º :: ¹æ¹®ÀÚ °ü·Ã ¼ÒÇÁÆ®¿þ¾î