http://qs321.pair.com?node_id=728804


in reply to Re^2: Thanks !! (XML + Excel) with (win32::OLE and XML::Simple)
in thread Thanks !! (XML + Excel) with (win32::OLE and XML::Simple)

Only problem is that your suggestion doesn't keep them sorted any more
I noted that i at the bottom of my suggestion (after the code blocks), w/how to fix it:
NOTE: I noticed after i wrote it out that the while loses the sort keys functionality you had. If that's important, you can replace while( my ($sub2, $aoh2) = each %$sub2Hash ){ with:
foreach my $sub2 ( sort keys %$sub2Hash ){ my $aoh2 = $sub2Hash->{$sub2};

Replies are listed 'Best First'.
Re^4: Thanks !! (XML + Excel) with (win32::OLE and XML::Simple)
by Sporti69 (Acolyte) on Dec 08, 2008 at 08:54 UTC
    I did change the code like you said. Maybe not completely... because $sub2Hash doesn't exist, its $doc->{$level1}$i in stead of only $sub2Hash. Or did you see it otherwise ?