如何用perl 获取xml中的数据，求助！！！！！

Question

<?xml version="1.0" encoding="UTF-8"?>

<root>

<row>

<field name='CURRENT_DATE' value='2011-10-25'/>

<field name='GATEWAY_NAME' value='HESJ-PS-WAP-SYS01'/>

<field name='REQ_NUM' value='119339386'/>

<field name='TODAY_SUCC_RATE' value='95.95'/>

<field name='TODAY_TOP_LINE_USER_NUM' value='412'/>

<field name='GATEWAY_AVG_DELAY' value='33.03'/>

</row>

<row>

<field name='CURRENT_DATE' value='2011-10-26'/>

<field name='GATEWAY_NAME' value='HESJ-PS-WAP-SYS01'/>

<field name='REQ_NUM' value='3318745'/>

<field name='TODAY_SUCC_RATE' value='95'/>

<field name='TODAY_TOP_LINE_USER_NUM' value='127'/>

<field name='GATEWAY_AVG_DELAY' value='37.56'/>

</row>

</root>

Answer 1

麻烦的做法是自己用正则表达式取数据。简单点的，Perl里面有专门读写XML数据的“包”，如果没有，可以自行从网上下载来安装。

Answer 2

可参考这个：

源地址在：http://www.oschina.net/code/snippet_18_5572

1. [代码][Perl]代码
01 use XML::Simple;
02 my $xmlfile = "result.xml";
03
04 my $casesT = XML::Simple->new( ForceArray => 1 );
05 my $caseT = $casesT->XMLin($xmlfile);
06
07 my @cT = @{ $caseT->{"caseresult"} };
08
09
10 foreach my $c (@cT) {
11 $case_file = $c->{"caseFile"}[0];
12 $is_true = $c->{"isSuccessFul"}[0];
13 print $case_file. " ". $is_true ."\n";
14 }
2. [代码]result.xml
01 <okList>
02 <caseresult>
03 <caseFile>/home/sql/1.sql</caseFile>
04 <isSuccessFul>true</isSuccessFul>
05 </caseresult>
06 <caseresult>
07 <caseFile>/home/sql/2.sql</caseFile>
08 <isSuccessFul>true</isSuccessFul>
09 </caseresult>
10 </okList>

Answer 3

对于excel的读取，建议用Win32::OLE模块，相当强大和简便
代码如下：
#**********************************************************
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use Cwd;
use File::Find;
use File::Copy;

#*********************************************************************
my $curdir=getcwd();
# get already active Excel application or open new
my $Excel = Win32::OLE-

Answer 4

use XML::Simple;
use Data::Dumper;

open (FILE,">C:/Perl/test.txt");
$xml = XMLin('C:\Perl\Code\file.xml');
print FILE Dumper($xml);