Ŭ·¡½º :: ¹æ¹®Àڹ湮ÀÚ ¹× ¹Ýº¹ÀÚ È®Àå Ŭ·¡½º :: ÅÛÇø´ | |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: ¹æ¹®ÀÚ ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- 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.
Ŭ·¡½º :: ¹æ¹®ÀÚ °ü·Ã ¼ÒÇÁÆ®¿þ¾î
net :: cidr :: lookup.
IPv4 ³×Æ®¿öÅ© ¶Ç´Â È£½ºÆ®°¡ Àε¦½Ì ÇÑ Á¶È¸ Å×À̺íÀ» ±¸ÇöÇÏ´Â Perl Ŭ·¡½º ...
171