Perlメモ/XMLã®è§£æž - Walrus, Digit.XMLファイルをæ£è¦è¡¨ç¾ã®ã¿ã§ã‚¿ã‚°ã¨ãƒ†ã‚ストã®é…列ã«å¤‰æ›ã™ã‚‹æ–¹æ³•ã§ã™ã€‚ 簡易的ãªXMLパーサーを作る時ã«ã¯ã€ã¾ãšã“ã®ä½œæ¥ã‚’ã—ã¦ã—ã¾ã†ã¨å¾Œã®å‡¦ç†ã¯ç°¡å˜ã«ãªã‚‹ã§ã—ょã†ã€‚ ãªãŠã€å¯¾è±¡ã®XMLデータã¯eucコードã«ã—ã¦ãŠã„ã¦ãã ã•ã„。 ã“ã®ãƒ«ãƒ¼ãƒãƒ³ãŠã‚ˆã³æ£è¦è¡¨ç¾ã¯ã€å¤§å´Žæ°ã®ã€ŒPerlメモã€ã«ã‚る「(HTML)タグを削除ã™ã‚‹ã€ã‚’ベースã«ã€XMLã®è§£æžç”¨ã«ã‚¢ãƒ¬ãƒ³ã‚¸ã—ãŸã‚‚ã®ã§ã™ã€‚ ã“ã®ãƒ«ãƒ¼ãƒãƒ³ãŒå½¹ç«‹ã£ãŸã¨ã™ã‚Œã°ã€ãã®åŠŸç¸¾ã®9割ã¾ã§ã¯å¤§å´Žæ°ã®ã‚‚ã®ã§ã™ã€‚ 次ã®ã‚µãƒ–ルーãƒãƒ³ã¯ã€å¼•æ•°ã«XMLæ–‡å—列をå–ã‚Šã€ã‚¿ã‚°ã¨æ–‡å—列ã«åˆ†ã‘ãŸé…列を返ã—ã¾ã™ã€‚ sub xml_to_array { my $xml = shift; my $tag_regex_ = q{<[^"'<>]*(?:"[^"]*"[^"'<>]*|'[^']*'[^"'<>]*)*(?:>|(?=<)|$(?!\n))}; my $comment_reg
ã™ã¹ã¦ã®æ¼¢å—ã‚’å–り出ã™æ£è¦è¡¨ç¾ - totonã®ãƒ–ãƒã‚°
Regexp::Assemble: blog.bulknews.net
æ£è¦è¡¨ç¾ã®eオプションをJavaScriptã§ã‚¨ãƒŸãƒ¥ãƒ¬ãƒ¼ãƒˆ
{{#tags}}- {{label}}
{{/tags}}