- use XML::Simple;
- my $xmlfile = "result.xml";
- my $casesT = XML::Simple->new( ForceArray => 1 );
- my $caseT = $casesT->XMLin($xmlfile);
- my @cT = @{ $caseT->{"caseresult"} };
- foreach my $c (@cT) {
- $case_file = $c->{"caseFile"}[0];
- $is_true = $c->{"isSuccessFul"}[0];
- print $case_file. " ". $is_true ."\\n";
- }
- #该片段来自于http://www.codesnippet.cn/detail/050120131305.html
来源: http://www.codesnippet.cn/detail/050120131305.html