perl解析xml代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】 perl解析xml

作者:hymn / 发布于2011/8/7/ 1899

<div>use XML::Simple;
my $xmlfile = "result.xml";</div>
<div>my $casesT = XML::Simple->new( ForceArray => 1 );
my $caseT = $casesT->XMLin($xmlfile);</div>
<div>my @cT = @{ $caseT->{"caseresult"} };</div>
<div>
foreach my $c (@cT) {
$case_file = $c->{"caseFile"}[0];
$is_true = $c->{"isSuccessFul"}[0];
print $case_file. " ". $is_true ."\n";
}
<div></div>
<div><okList>
 <caseresult>
 <caseFile>/home/sql/1.sql</caseFile>
 <isSuccessFul>true</isSuccessFul>
 </caseresult>
 <caseresult>
 <caseFile>/home/sql/2.sql</caseFile>
 <isSuccessFul>true</isSuccessFul>
 </caseresult>
 </okList></div>
<div></div>

试试其它关键字

同语言下

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

可能有用的

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

hymn贡献的其它代码(1)

.perl解析xml