Re: [PerlChina] 关于XML::DOM 模块

抛开xml及其模块，  用regex 也可以做啊

 

( my  $data ) =  $string =~  /^\s*BLineCode><!\[CDATA\[(.*)\]\]><\/BLineCode>\s*$/m  ;

 

 

print $data ;

 

 

 

2011/3/11 DXX <master2dou@gmail.com>

hi:

   我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

   XML文件是这样的：

<ScriptRule>

    <Rule>

      <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>

      <BLineName><![CDATA[Perl]]><<

/BLineName>

      <BLineDesc><![CDATA[]]></BLineDesc>

      <BLineSeverity><![CDATA[1]]></BLineSeverity>

      <IsCheck><![CDATA[1]]></IsCheck>

      <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

      <BLineValue><![CDATA[]]></BLineValue>

      <Unit><![CDATA[]]></Unit>

      <FormatRule><![CDATA[Linux]]></FormaatRule>

      <Solution><![CDATA[]]></Solution>

      <BLineStandard><![CDATA[1]]></BLineStandard>

    </Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
            Yours Sincerely
                    Zeng Hong

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。