perl解析xml

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";
}