Perl解析XML文件(JUnit结果)

2011-11-21  籽藤 

Perl解析XML文件,可以调用XML::Simple模块。安装命令:

perl -MCPAN -e shell
install XML::Simple
quit
 
程序test.pl:

use XML::Simple;
$xml=new XML::Simple;
$path='E:\\surefire-reports';
opendir(DIR,$path);
@filename=readdir(DIR);
for($i=2;$i<@filename;$i++)
{
#print "$path\\@filename[$i]";
if(@filename[$i]=~m/.xml/){
$myfile="$path\\@filename[$i]";
$data=$xml->XMLin($myfile);
if(($data->{'errors'}!='0')||($data->{'failures'}!='0')){
print "\nname: $data->{'name'} tests: $data->{'tests'} failures: $data->{'failures'} errors: $data->{'errors'} ";
print "\nerror message: $data->{'testcase'}->{'error'}->{'message'}";
print "\n";
}
}
}

closedir(DIR);

 说明:

  • 之所以$i是从2开始,是因为readdir方法还会输出“.”和“..”,代表当前目录和父目录。但这并不是我们所关注的文件名,故不做考虑。
  • “@filename[$i]=~m/.xml/”用正则表达式过滤出后缀名为xml的文件,参见http://www.chinaunix.net/jh/25/159388.html
  • XMLin方法是读取XML文件,若要写一个XML文件,则用XMLout方法
  • 关于调试,可以use Data::Dumper;通过print Dumper($data);查看xml结构

待解析的文件格式:

<?xml version="1.0" encoding="UTF-8" ?>
<testsuite failures="0" time="204.04" errors="1" skipped="0" tests="1" name="wrong_oldpasswordTest">
 
 <properties>
   
<property name="java.runtime.name" value="Java(TM) SE Runtime Environment"/>
    <property name="sun.boot.library.path" value="C:\Program Files\Java\jdk1.6.0_20\jre\bin"/>
 
</properties>
 
<testcase time="202.48" classname="wicresoft.wrong_oldpasswordTest" name="wrongoldpassword">
   
<error message="ERROR: Element OldPassword not found" type="com.thoughtworks.selenium.SeleniumException">com.thoughtworks.selenium.SeleniumException: ERROR: Element OldPassword not found at com.thoughtworks.selenium.HttpCommandProcessor.throwAssertionFailureExceptionOrError(HttpCommandProcessor.java:97)
 at com.thoughtworks.selenium.HttpCommandProcessor.doCommand(HttpCommandProcessor.java:91)
</error>
  
<system-out>@SLTests run: 1, Failures: 0, Errors: 0, Skipped: 0, Time elapsed: 6.953 sec @SLRunning wicresoft.wrong_oldpasswordTest
</system-out>
  </testcase>

</testsuite>

运行:

     在命令行中,输入“perl test.pl >>d:\123.txt",即将解析结果写入到D盘的123.txt文件中。

331°/3318 人阅读/0 条评论 发表评论

登录 后发表评论