# start an XML worksheet open (my $xmlfl,"+>>$path/$file") or die "$file failed: $!\n"; print $xmlfl "\n"; print $xmlfl "\n"; print $xmlfl " \n"; print $xmlfl " \n"; # print $xmlfl the header row # ... print $xmlfl " \n"; foreach $app(keys %appsrvr) { print $xmlfl " $app"; print $xmlfl " "; print $xmlfl " \n"; foreach $attribute(keys %{ $appsrvr{$app} }) { #print " $appsrvr{$app}{$attribute}"; print $xmlfl " \n"; print $xmlfl " $appsrvr{$app}{$attribute}\n"; print $xmlfl " \n"; } # print $xmlfl " \n" } # print "\n"; # End the XML worksheet print $xmlfl "
\n"; print $xmlfl "
\n"; print $xmlfl "
\n"; # close this group file