Re: XML parsing

[Jenda]

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>
...

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.