Re^3: How to get content of an XML::easytree output

Something like the following (untested) skeleton code:

sub print_easy_tree {
    my $node_array_ref = shift;

    for my $node (@$node_array_ref) {
        if ($node->{type} eq 'e') {
            ...
        }
        elsif ($node->{type} eq 't') {
            ...
        }
        else {
            ...
        }
    }
}
[download]

-- Ken

Comment on Re^3: How to get content of an XML::easytree output Download Code

Replies are listed 'Best First'.
Re^4: How to get content of an XML::easytree output by Tworec (Initiate) on Mar 08, 2013 at 09:39 UTC
Great, it works now! Only if I could ask one more question.. Why `@$` in `@$node_array_ref`? Why not just `@?` And if you know about a site where could I learn more of perl accessing to data, could you please give me a link? Of course I used google and found several sites with perl tutorials even in my language, but I mean if you know any you could personally recommend.	[reply] [d/l] [select]
Re^5: How to get content of an XML::easytree output by kcott (Archbishop) on Mar 08, 2013 at 12:22 UTC
In essence, `$node_array_ref` is a reference to an array; it is a single scalar value. `@$node_array_ref` (which you might see written as `@{ $node_array_ref }`) dereferences `$node_array_ref` to produce an array of scalar values. See perlreftut for a short tutorial about references. The main Perl link that I have bookmarked is http://perldoc.perl.org/perl.html. This has links to all the Perl documentation. I'd recommend you start with perlintro, then look at the links under Tutorials and then move on to the Reference Manual. There is a vast amount of information here: don't try to learn everything at once; instead, get a feel for which sections contain which information and revisit often - you'll build up a solid body of core knowledge with the ability to quickly find specifics when you need to. -- Ken	[reply] [d/l] [select]