in reply to Re: XML::LibXML - WHAR HASH TREES WHAR?!
in thread XML::LibXML - WHAR HASH TREES WHAR?!

Ignoring your attempts at using an XML parser as an XML generator

Who said LibXML is just a parser?

XML::LibXML supports namespaces. XML::Smart doesn't (except when used to generate documents).

Yes, probably because it's too old for it. It doesn't support XSD, either, which is part of the reason I'm switching to LibXML.

I'm not debating that Smart is missing critical functionality. I'm frustrated that LibXML is this mature, and is a Perl module, and yet is this clunky at navigation. Nor are there any modules for XML::LibXML that enhance it to fix its navigation.

I mean seriously, this is what I have to do to check for a tag and fill data for it:

# Before
$sn->{'SourceDBType'} ||= 'XML';

# After
$sn->findvalue('SourceDBType') || ($sn->find('SourceDBType') ? $sn->fi
+nd('SourceDBType')->setData('XML') : $sn->addNewChild(undef, 'SourceD
+BType')->setData('XML'));

[download]

Are you kidding me?!?!  That's a horrible mess!  And god forbid I do something like $sn->find('SourceDBType')->setData('XML') without checking the existence of SourceDBType first.  That'll give me a fatal error.

XML::LibXML preserves the order of the children of elements. XML::Smart can't even list the children of an element.

Incorrect. Smart does both: $XML->{server}{address}[1]('@');  # there's your children of that <address> tag

Replies are listed 'Best First'.
Re^3: XML::LibXML - WHAR HASH TREES WHAR?!
by ikegami (Patriarch) on Jul 15, 2011 at 19:24 UTC

    Who said LibXML is just a parser?

    You, for one.

    Yes, probably because it's too old for it.

    I meant it can't support namespaces.

    I'm not debating that Smart is missing critical functionality.

    Neither was I. I was referring to what its design allows.

    Are you kidding me?!?! That's a horrible mess!

    Are you kidding me? The equivalent would be 

    $sb->setAttribute(SourceDBType => 'XML') if !$sb->setAttribute('XML');

    [download]

    Incorrect. Smart does both:

    Sorry, but that's not working. 

    use strict;
use warnings;
use feature qw( say );

use XML::Smart qw( );

my $doc = XML::Smart->new(<<'__EOI__');
<root>
   <node>
     a
     <foo/>
     b
     <bar/>
     c
  </node>
</root>
__EOI__

my @children = $doc->{root}{node}[0]('@');
say @children == 5 ? "ok" : "XXX";

    [download]
    1
XXX

    [download]
[reply]
[d/l]
[select]

      Neither was I. I was referring to what its design allows.

      All the more reason to allow both methods.

      Are you kidding me? The equivalent would be

      $sb->setAttribute('XML') if !$sb->setAttribute('XML');

      Okay, what if it's a node and not an attribute?

      Sorry, but that's not working.

      Sorry, my bad; it should be hash: 

      my %children = $doc->{root}{node}[0]('%');
say join "\n", map { "$_ = $children{$_}" } keys %children;
say keys %children == 6 ? "ok" : "XXX";  # includes extra "CONTENT" ke
+y/value

      [download]
[reply]
[d/l]

        Okay, what if it's a node and not an attribute?

        $sb->append(new_data_ele(SourceDBType => 'XML'))
   if !$sb->findnodes('XML')->size;

        [download]

        Sorry, my bad; it should be hash:

        Ok, will strike my comment. 

        sub child_nodes {
   my %c = $_[0]('%');
   return
      map { ( my $t = $_ ) =~ s{/CONTENT\K}{}; [ $t => $c{$_} ] } 
         grep $_ ne 'CONTENT',
            keys %c;
}

        [download]

        It still can't differentiate between elements and attributes, though.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom