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

非常的感谢cnhack TNT，我的问题解决了，thank u.

2011/3/11 cnhack TNT <cnhacktnt@gmail.com>

直接给个例子吧：

#!/usr/bin/env perl

# cnhackTNT

use strict;

use XML::DOM;

use Data::Dumper;

my $paser = XML::DOM::Parser->new;

my $doc = $paser->parse(<<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]]></FormatRule>

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

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

    </Rule>

    <Rule>

      <BLineCode><![CDATA[JX-LINUX-TY-WW-16-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]]></FormatRule>

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

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

    </Rule>

</ScriptRule>

XML

my @nodes = $doc->getElementsByTagName("BLineCode");

for my $node (@nodes) {

    my $cdata = $node->getFirstChild;

    print $node->getTagName, " => ", $cdata->getData, "\n";

}

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

这个上面已经找了，只有一个小例子，所有的方法解释的相当的简单且没有例子，google了一下，发现网上所有的无论博客还是论坛，内容都是一模一样的，都是perldoc XML::DOM的前十行，我都汗死了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

search.cpan.org  上 看看

 

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

恩，是的，用正则可以，但是上面的头指明了必须要用dom来做，比较棘手，dom的资料太不好找了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

抛开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 访问此网上论坛。

--
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 访问此网上论坛。

--
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 访问此网上论坛。

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

--
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 访问此网上论坛。