use strict;
use XML::Rules;

my $parser = XML::Rules->new(
    stripspaces => 7,
    rules => {
        _default => sub {
            my ($tag,$attrs,$context) = @_;
            if (%$attrs) {
                my @tags = (@$context[1..$#$context], $tag);
                my $content = delete $attrs->{_content};
                if (%$attrs) {
                    foreach my $attr (keys %$attrs) {
                        $tags[-1] .= " $attr=\"$attrs->{$attr}\"";
                    }
                }
                if (defined $content) {
                    print join('::',@tags),"::",$content,"\n";
                } else {
                    print join('::',@tags),"\n";
                }
            }
            return;
        }
    }
);
$parser->parse(\*DATA);

__DATA__
<FinInstnCdtTrf>
<GrpHdr>
<MsgId>0000003714</MsgId>
...

[download]

The code installs and then runs an unnamed subroutine for each tag encountered in the file. The subroutine checks whether there is any text content or attributes, prepares a list containing all parent tags except the root plus the current tag, appends attributes (if any) and then prints this list joined by '::' and appends the text content (if any) and returns nothing. The $parser->parse() in this case gets the data from the filehandle DATA (reads the stuff after __DATA__ in the script, but it can accept the XML in a scalar or from a file. Check the docs.

Jenda
Enoch was right!
Enjoy the last years of Rome.

In reply to Re: XML parsing by Jenda
in thread XML parsing by sandip

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.