| xml :: tokeparser. XML :: Æļ¿¡ ´ëÇÑ °£¼ÒÈ µÈ ÀÎÅÍÆäÀ̽º |
Áö±Ý ´Ù¿î·Îµå |
xml :: tokeparser. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~podmaster/
xml :: tokeparser. ű×
xml :: tokeparser. ¼³¸í
XML :: Parser¿¡ ´ëÇÑ °£¼ÒÈ µÈ ÀÎÅÍÆäÀ̽º XML :: tokeParser´Â Gisle AAS 'HTML :: TokeParser°¡ HTML :: Æļ¿¡ ´ëÇÑ ÀýÂ÷ ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â °Í°ú µ¿ÀÏÇÑ ¹æ½ÄÀ¸·Î XML :: Parser¿¡ ´ëÇÑ ÀýÂ÷ ( "Pull Mode") ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. XML :: tokeparser´Â XML :: Parser Event.A ÅäÅ«¿¡ ÇØ´çÇÏ´Â °¢°¢ÀÇ XML ÀÔ·ÂÀ» "ÅäÅ«"À¸·Î ºÐÇÒÇÕ´Ï´Ù. ATTOMÀº ù ¹ø° ¿ä¼Ò°¡ À̺¥Æ® Çü½Ä ¹®ÀÚ¿ÀÌ°í ¸¶Áö¸· ¿ä¼Ò°¡ÀÖ´Â ¹è¿¿¡ ´ëÇÑ ÃູÀÔ´Ï´Ù. À̺¥Æ®¸¦ »ý¼º ÇÑ XML ÀÔ·ÂÀÇ ¹®ÀÚ ±×´ë·Î ÅؽºÆ®´Â À̺¥Æ® Type.each ÅäÅ«¿¡ µû¶ó ´Ù¾çÇÑ Áß°£ ¿ä¼Ò°¡ XML :: tokeParser :: Token À¯ÇüÀÇ °³Ã¼ÀÔ´Ï´Ù. "XML :: tokeParser :: Token"À» Àаí ÅäÅ«À» °Ë»çÇÏ°í IT¿¡¼ µ¥ÀÌÅ͸¦ °Ë»ö ÇÒ ¼öÀÖ´Â ¹æ¹ýÀ» ¾Ë¾Æº¸½Ê½Ã¿À. Synopsis XML :: tokeParser¸¦ »ç¿ëÇϽʽÿÀ. # #from ÆÄÀÏ ³» $ p = xml :: tokeparser-> new ( 'file.xml') # # # PFOURE OPEN OPEN, 'file.xml'¶Ç´Â Die $!; MY $ P = XML :: tokeParser-> New (* In, Moptempty => 1); # #parse ¸®ÅÍ·² ÅؽºÆ® My $ text = ' text'; MY $ P = XML :: tokeParser-> »õ ($ text, namespaces => 1); # #read ´ÙÀ½ ÅäÅ« My $ Token = $ p-> get_token (); # #skip to
¹× ÅؽºÆ® Àбâ $ p-> get_tag ( 'title'); $ p-> get_text (); # # ´ÙÀ½ÀÇ ÅؽºÆ®, ³»ºÎ ¸¶Å© ¾÷ $ p-> get_tag ( 'para')¸¦ ¹«½ÃÇÕ´Ï´Ù. $ p-> get_trimmed_text ( '/ para'); # # #process Èï¹Ì·Î¿î ÅؽºÆ® $ t = $ p-> get_tag ( 'para'); $ p-> begin_saving ($ t); if ($ p-> get_trimmed_text ( '/ para') = ~ / Èï¹Ì·Î¿î ¹°°Ç /) {$ p-> restore_saved (); process_para ($ p); } ¿ä±¸ »çÇ× : ¡¤ Perl.
xml :: tokeparser. °ü·Ã ¼ÒÇÁÆ®¿þ¾î