Here is the code I was trying to work on...but it gets created on 1 cell when I try to open it in a excel spread sheet
# start an XML worksheet
open (my $xmlfl,"+>>$path/$file") or die "$file failed: $!\n"
+;
print $xmlfl "<?xml version=\"1.0\"?>\n";
print $xmlfl "<Workbook xmlns=\"urn:schemas-microsoft-com:offi
+ce:spreadsheet\"\n";
print $xmlfl " xmlns:o=\"urn:schemas-microsoft-com:office:offi
+ce\"\n";
print $xmlfl " xmlns:x=\"urn:schemas-microsoft-com:office:exce
+l\"\n";
print $xmlfl " xmlns:ss=\"urn:schemas-microsoft-com:office:spr
+eadsheet\">\n";
print $xmlfl " <Worksheet ss:Name=\"Policy-Groups\">\n";
print $xmlfl " <Table>\n";
# print $xmlfl the header row
# <group> <policy1> <policy2> ... <policyn>
print $xmlfl " \n<Row>";
foreach $app(keys %appsrvr) {
print $xmlfl " <Cell><Data ss:Type=\"String\">$app<
+/Data></Cell>";
print $xmlfl " </Row>";
print $xmlfl " <Row>\n";
foreach $attribute(keys %{ $appsrvr{$app} }) {
#print " $appsrvr{$app}{$attribute}";
print $xmlfl " <Row>\n";
print $xmlfl " <Cell><Data ss:Type=\"String\">$appsrvr{$app
+}{$attribute}</Data></Cell>\n";
print $xmlfl " </Row>\n";
}
# print $xmlfl " </Row>\n"
}
# print "\n";
# End the XML worksheet
print $xmlfl " </Table>\n";
print $xmlfl " </Worksheet>\n";
print $xmlfl "</Workbook>\n";
# close this group file
CodeTags™ by holli