And after posting here, and reading some stuff I got to somethings like this. This code needs to be universal, I just don't get it with the referencing thing, if it is necassary. I suppose so. But let me just remark that I need to get down to the attributes, only A B and C will be there as nested elements.<?xml version="1.0" encoding="ISO-8859-1"?> <A> <B> <C> <element type="k" name="p" online="yes"/> <element type="i" name="e" online="yes"/> <element type="y" name="z" online="yes"/> <element type="a" name="q" online="yes"/> <element type="z" name="d" online="yes"/> <element type="t" name="p" online="yes"/> </C> </B> </A>
#!/usr/bin/perl -- use strict; use warnings; use Cwd; use XML::Simple; my $dir = cwd(); opendir(DIR, "."); my @files = grep(/\.xml$/,readdir(DIR)); closedir(DIR); foreach my $file (@files) { my $xs1 = XML::Simple->new(); my $doc = $xs1->XMLin($file, keyattr=>['????????'], ForceContent=>1, F +orceArray=>1); use Data::Dumper; local $Data::Dumper::Indent=1; for my $sub ( sort keys %{ $doc->{???????} } ){ $rowCount = $tellerR; $worksheet->Cells($rowCount, $colCount)->{Value} = $sub; for my $elem ( sort keys %{ $doc->{??????}{$sub} } ){ # More simalar onces ?? Or... for my $element ( @{ $doc->{???????}{$sub}{$elem} } ){ } } } }
In reply to Re^2: XML :: Simple
by Sporti69
in thread XML :: Simple
by Sporti69
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |