Re: perl parsing xml

The "kitchen sink" module for manipulating XML is XML::Twig.

A starting point using XML::Twig to solve you problem may be:

use strict;
use warnings;
use XML::Twig;

my $xml = <<XML;
<xs:complexType name="semt.002.001.01">
<xs:sequence>
<xs:element name="PrvsRef" type="AdditionalReference2" minOccurs="0" m
+axOccurs="unbounded"/>
<xs:element name="RltdRef" type="AdditionalReference2" minOccurs="0" m
+axOccurs="unbounded"/>
<xs:element name="MsgPgntn" type="Pagination"/>
<xs:element name="StmtGnlDtls" type="Statement3"/>
<xs:element name="AcctDtls" type="SafekeepingAccount1"/>
<xs:element name="BalForAcct" type="AggregateBalanceInformation1" minO
+ccurs="0" maxOccurs="unbounded"/>
<xs:element name="SubAcctDtls" type="SubAccountIdentification1" minOcc
+urs="0" maxOccurs="unbounded"/>
<xs:element name="TtlVals" type="TotalValueInPageAndStatement" minOccu
+rs="0" maxOccurs="1"/>
<xs:element name="Xtnsn" type="Extension1" minOccurs="0" maxOccurs="un
+bounded"/>
</xs:sequence>
</xs:complexType>
XML

my $twig = XML::Twig->new (twig_handlers => {'[@name]' => \&showNestin
+g});

$twig->parse ($xml);


sub showNesting {
    my @path;

    for my $elt (reverse $_->ancestors_or_self ()) {
        next unless defined $elt->att ('name');

        push @path, $elt->att ('name');
    }

    print join ('.', @path), "\n" if @path;
}
[download]

Prints:

semt.002.001.01.PrvsRef
semt.002.001.01.RltdRef
semt.002.001.01.MsgPgntn
semt.002.001.01.StmtGnlDtls
semt.002.001.01.AcctDtls
semt.002.001.01.BalForAcct
semt.002.001.01.SubAcctDtls
semt.002.001.01.TtlVals
semt.002.001.01.Xtnsn
semt.002.001.01
[download]

which doesn't do exactly what you want (I can't see exactly what you want in any case), but should get you going.

Perl is environmentally friendly - it saves trees

Comment on Re: perl parsing xml Select or Download Code

Replies are listed 'Best First'.
Re^2: perl parsing xml by thickice97 (Initiate) on Jan 23, 2008 at 02:53 UTC
I was actually using XML::Simple which was printing something like above. But the problem I want something like this `semt.002.001.01.PrvsRef semt.002.001.01.RltdRef` [download] The output is to related to semt.002.001.01 which is the root level. It just an example output file .It has various types with associated names. Like name = PrvsRef type = AdditionalReference2, name = RltdRef, type = AdditionalReference2. Therefore semt.002.001.01.PrvsRef;semt.002.001.01.RltdRef . Now I need to parse the xml file for the type "AdditionalReference2" it again has three different names with associated types. There fore semt.002.001.01.PrvsRef.RefIssr;semt.002.001.01.Ref so on . Therefore I need to look for the types Ref, RefIssr,MsgNm in the xs:complex type and append the names to the rootlevel. It has to find the root level and then append the intermediate nodes available in the xml file.	[reply] [d/l]
Re^3: perl parsing xml by GrandFather (Saint) on Jan 23, 2008 at 03:26 UTC
If I understand what you want then adding: `my $type = $_->att ('type'); return unless defined $type && $type eq 'AdditionalReference2';` [download] following the `my @path;` line in showNesting does the trick and (for the sample data I used above) prints: `semt.002.001.01.PrvsRef semt.002.001.01.RltdRef` [download] Perl is environmentally friendly - it saves trees	[reply] [d/l] [select]
Re^4: perl parsing xml by thickice97 (Initiate) on Jan 23, 2008 at 04:41 UTC
but i can;t hard code additionalreference2 as it could be varying. and when finally i want the output to be `semt.002.001.01 semt.002.001.01.PrvsRef semt.002.001.01.PrvsRef.Ref semt.002.001.01 semt.002.001.01.PrvsRef semt.002.001.01.PrvsRef.RefIssr semt.002.001.01.PrvsRef.RefIssr.BICOrBEI` [download] as i explained above. first just the root , root +intermediate node, root+intermediate node+leaf	[reply] [d/l]
Re^5: perl parsing xml by GrandFather (Saint) on Jan 23, 2008 at 06:54 UTC
Re^6: perl parsing xml by thickice97 (Initiate) on Jan 23, 2008 at 15:29 UTC