Parse mmifo xml output

parsemminfoxml.pl

#!/opt/ActivePerl-5.16/bin/perl
use XML::Simple;
use Data::Dumper;
use IO::File;

open (OUTFILE, '>parsed_mminfo.csv');
print OUTFILE "filename,client,name,level,sum-size\n";

# create object
$xml = new XML::Simple (KeyAttr=>[]);

@files = </tmp/NW_mminfo/*.xml>;
foreach $file (@files) {
	print "...processing $file\n";
	# read XML file
	$data = $xml->XMLin("$file");

	foreach my $e (@{$data->{result}}) {
		print OUTFILE "$file,";
		print OUTFILE
			$e->{"client"} , "," ,
			$e->{"name"} ,",",
			$e->{"level"} ,",",
			$e->{"sum-size"} , ,"\n";
			}
}

close (OUTFILE);