Ŭ·¡½º :: XML :: ÆļÀº »ç¿ëÀÚ Á¤ÀÇ Å¬·¡½º ±¸Á¶·Î XML ¸Þ½ÃÁö¸¦ ±¸¹® ºÐ¼® (¹× DTD¿¡ ´ëÇØ °ËÁõ)ÇÕ´Ï´Ù | |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: XML :: Æļ ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Mark Morgan
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mmorgan/
Ŭ·¡½º :: XML :: Æļ ű×
Ŭ·¡½º :: XML :: Æļ ¼³¸í
±¸¹® ºÐ¼® (¼±ÅÃÀûÀ¸·Î DTD¿¡ ´ëÇØ ¼±ÅÃÀûÀ¸·Î À¯È¿¼ºÀÌ °Ë»ç) XML ¸Þ½ÃÁö¸¦ »ç¿ëÀÚ Á¤ÀÇ Å¬·¡½º ±¸Á¶·Î Ŭ·¡½º :: XML :: Parser´Â XMLÀ» »ç¿ëÀÚ Á¤ÀÇ °´Ã¼ °èÃþ ±¸Á¶·Î ÆÄ½Ì ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ¶ÇÇÑ XMLÀº XML º»¹® ³»¿¡ Á¤ÀÇ µÈ °æ¿ì XMLÀÌ DTD¿¡ ´ëÇØ À¯È¿¼ºÀÌ °Ë»çµÇ¸ç XML :: Checker :: Parser´Â »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ±¸¹® ºÐ¼®ÀÌ ¼öÇàµÇ´Â ¹æ½Ä¿¡ ´ëÇÑ Âü°í »çÇ×ÀÔ´Ï´Ù. -> PARSE ¸Þ¼Òµå°¡ È£ÃâµÇ¸é °¢ ¿ä¼Ò À̸§Àº ÇöÀç Ŭ·¡½º '(±âº»ÀûÀ¸·Î root_class) __xml_parse_objects °á°ú¿¡ ´ëÇØ ¼±Åõ˴ϴÙ. __xml_parse_objects Çؽà ¿¡ÀÌ ¿ä¼Ò¿¡ ´ëÇÑ Ç׸ñÀÌÀÖ´Â °æ¿ì ´ë»ó Ŭ·¡½ºÀÇ »õ ÀνºÅϽº°¡ »ý¼ºµË´Ï´Ù. ¸ðµç Ãß°¡ ¿ä¼Ò¿Í ¼Ó¼ºÀº ÇØ´ç °´Ã¼ÀÇ ´Ý´Â űװ¡ ¹ß°ß µÉ ¶§±îÁö ÀÌÀü ¿ÀºêÁ§Æ®°¡ º¹¿ø µÉ ¶§±îÁö ¸ðµç Ãß°¡ ¿ä¼Ò°¡ ¹ß°ß µÉ ¶§±îÁö ¸ðµç Ãß°¡ ¿ä¼Ò°¡ ÇØ´ç °´Ã¼¿¡¼ Á¢±Ù ÀÚ¸¦ È£ÃâÇÏ´Â µ¥ ±âº» ¿ä¼Ò°¡ Ç¥½ÃµË´Ï´Ù. Áßø ¿ä¼Ò°¡ ¹ß°ßµÇ¸é __xml_parse_objects Á¤ÀÇ°¡ Á¸ÀçÇÏÁö ¾ÊÀ¸¸é ¸ðµç µ¥ÀÌÅÍ ¿ä¼Ò¿Í ¼Ó¼ºÀÌ ÇöÀç ¿ÀºêÁ§Æ® (ÄÁÅ×ÀÌ³Ê Àü¿ë ¿ä¼Ò°¡ *°¡ Ãß°¡µÇÁö ¾ÊÀ½)·Î Á¢ÇôÁý´Ï´Ù. ½Äº°ÀÚ # ±¸¹® ºÐ¼® °á°ú ±âº» Ŭ·¡½º, ¿ÀÅä·Î´õ ÆÐÅ°Áö¸¦ Á¤ÀÇÇÕ´Ï´Ù. Parseresult :: Base; »õ·Î¿î {Ãູ {}, shift (); } Sub Autoload {My ($ self, $ val) = @_; ³» $ meth = $ autoload; $ meth = s /.* :: //; $ meth eq 'destrision'À̶ó¸é ¹ÝȯÇϽʽÿÀ. (Á¤ÀÇ µÈ $ val) {$ self -> {$ meth} = $ val; } $ self-> {$ meth}; } # XMLÀÌ Package Parseresult·Î ±¸¹® ºÐ¼®µÇ´Â Ŭ·¡½º Á¤ÀÇ; ±âº» QW (parseresult :: base)¸¦ »ç¿ëÇϽʽÿÀ. # ¼±ÅÃÀûÀ¸·Î ƯÁ¤ ¿ä¼Ò°¡ ÆÄ½Ì µÉ ÇÏÀ§ Ŭ·¡½º¸¦ Á¤ÀÇÇÕ´Ï´Ù. #ÀÌ ¸Þ¼Òµå°¡ Á¸ÀçÇÏÁö ¾ÊÀ¸¸é # ¸ðµç ÇÏÀ§ ¿ä¼Ò¿Í ¼Ó¼ºÀºÀÌ Å¬·¡½º ÇÏÀ§ __xml_parse_objects {{blah => parseresult :: blah ',}} # Ŭ·¡½º¸¦ »ç¿ëÇÏ¿© »ý¼ºÀÚ¸¦ »ç¿ëÇÕ´Ï´Ù. '»õ·Î¿î'º¸´Ù. À¯¿ëÇÑ Å¬·¡½º :: ½Ì±Û Åæ °´Ã¼ sub __xml_parse_constructor { 'new'} # ¼±ÅÃÀûÀ¸·Î XML # ¿ä¼Ò À̸§ÀÌ ¾Æ´Ñ ¸Þ¼µå¸¦ ´Ù¸¥ ¸Þ¼µå¿¡ ¾Ù¸®¾î¸® ÇÑ ¿ä¼Ò°¡ ÀÖ½À´Ï´Ù. __xml_parse_aliases {{elem1 => bar ',}} ÆÐÅ°Áö parseresult :: blah; ±âº» QW (parseresult :: base)¸¦ »ç¿ëÇϽʽÿÀ. ÆÐÅ°Áö ¸ÞÀÎ; Ŭ·¡½º :: XML :: Æļ »ç¿ë; ³» $ XML = 'PARSERSULT', # ÃÖ»óÀ§ ¼öÁØÀÇ °á°ú¸¦ prune => 1, validate => 1, # dtd À¯È¿¼º °Ë»ç´Â map_uri => {# ¸ÊÀ» URL·Î URL·Î ¸ÊÇÎÇؾßÇÕ´Ï´Ù. DTDÀÇ HTTP °Ë»öÀ» ¼öÇàÇÏÁö ¾Ê¾ÆµµµË´Ï´Ù. ´ë½Å ·ÎÄà ÆÄÀÏ ½Ã½ºÅÛ 'http://example.com/parse.dtd'=> file : /tmp/parse.dtd ',}, ); MY $ TOP = $ PARSER-> ±¸¹® ºÐ¼® ($ XML) ¶Ç´Â DIE $ PARSER-> LAST_ERROR; Àμ⠴ýÆÛ $ top; # DTD°¡ Á¸ÀçÇÑ´Ù°í °¡Á¤Çϸé # $ VAR1 = Ãູ ({#'''t '=> Ãູ ({#'' '20'# ¼Ó¼º ¶ÇÇÑ #}, 'parseresult :: blah', # »õ °³Ã¼·Î ¸¸µé¾îÁ³½À´Ï´Ù. # __xml_parse_objects # 'qwerty'=> 'UIOP'# sub-element ·çÆ® #}, 'parseresult'; # ÃÖ°íÀÇ °³Ã¼´Â # 'root_class'¿ä±¸ »çÇ׿¡ Ãູ¹Þ½À´Ï´Ù. ¡¤ Perl.
Ŭ·¡½º :: XML :: Æļ °ü·Ã ¼ÒÇÁÆ®¿þ¾î
net :: cidr :: lookup.
IPv4 ³×Æ®¿öÅ© ¶Ç´Â È£½ºÆ®°¡ Àε¦½Ì ÇÑ Á¶È¸ Å×À̺íÀ» ±¸ÇöÇÏ´Â Perl Ŭ·¡½º ...
171