Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: XML::Twig and Processing Instructions

by eff_i_g (Curate)
on Mar 19, 2009 at 17:07 UTC ( #751794=note: print w/replies, xml ) Need Help??


in reply to XML::Twig and Processing Instructions

Excellent! Thank you mirod!

Out of curiosity, why are PIs "hidden"? Does it makes things easier on the processing (pun intended) side since many folks may never even touch them?
  • Comment on Re: XML::Twig and Processing Instructions

Replies are listed 'Best First'.
Re^2: XML::Twig and Processing Instructions
by mirod (Canon) on Mar 19, 2009 at 17:42 UTC

    They are hidden because they are not described in the DTD (are described in W3C Schemas?). So when you make assumptions about the kind of XML you're going to process based on the DTD, PIs (and comments) can trip you up, by splitting up text nodes, or showing up as child/sibling when you don't expect it. Using XPath (or XPath-like navigation in XML::Twig) mitigates the risk, but doesn't eliminate it. So I thought it would be safer to get them out of the way. Especially as in the old days, when XML::DOM and XML::Parser were at the cutting-edge of XML technology, I saw way too many examples in books and "serious" web sites that would not have dealt properly with random comments or PIs.

    This way, if you're concerned about PIs and/or comments you can access them, and otherwise you can safely ignore them. They will still be preserved as much as possible: comments or PIs before a start tag will follow the element if it is moved around, they will be preserved properly even when outside the root or inside the text... if you want to be scared look for cpi (comments and PI's) or extra_data (that's how I used to call them before I got lazy) in the source.

      Thanks for the explanation, mirod.

      I'm typically creating XML that dead-ends into a typesetting system (and may need its structure changed on a whim); therefore, DTDs are not created, and, as a result, my knowledge of them remains scant.

      For my fellow SOPW, here's what I ended up with (I changed the content of element so the example would make a little more sense):
      use strict; use warnings; use XML::Twig; my $XML = XML::Twig->new( pi => 'process', pretty_print => 'indented', twig_roots => { 'element' => sub { for my $child ($_->cut_children()) { if ($child->is_pcdata()) { for my $piece (split /(Warning:)/i, $child->trimme +d_text()) { my $pcdata = XML::Twig::Elt->new('#PCDATA' => +$piece); if ($piece =~ /Warning:/i) { my $b_start = XML::Twig::Elt->new('#PI'); $b_start->set_target('xpp'); $b_start->set_data('bold'); my $b_end = XML::Twig::Elt->new('#PI'); $b_end->set_target('xpp'); $b_end->set_data('/bold'); $b_start->paste('last_child', $_); $pcdata->paste('last_child', $_); $b_end->paste('last_child', $_); } else { $pcdata->paste('last_child', $_); } } } else { $child->paste('last_child', $_); } } $_->flush(); } }, ); $XML->parse(*DATA); print "\n"; __DATA__ <root> <element>A sentence about the product<?xpp qa?>Warning: This may s +pontaneously combust.</element> </root>

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://751794]
help
Chatterbox?
[Corion]: Do you have any specific interests or general Perl knowledge?
[Cosmic37]: should I slurp? should I grep? Noble Lords I wish you good karma and beg your advice
[Corion]: Cosmic37: Ah, see perlfaq4, about How do I compute the intersection of two arrays
[Cosmic37]: I am out of practice; I use Perl for scientific programming for number crunching
[Corion]: Cosmic37: Basically, you read one file into a hash, keyed by your key, and then match the lines from the second file to that hash
[Cosmic37]: note that the two files only have datetimes which may match whereas other data per line is different format in file1 and file2 - is that really intersection?
[jedikaiti]: Hi Monks
[Corion]: Cosmic37: Well, if you want to use only parts of a line for the key, see split or whatever other mechanism to extract the key from the line
[Corion]: Hi jedikaiti!
[Cosmic37]: is there a webpage for full CB for this chat rather than side panel chat?

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2017-06-29 16:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (672 votes). Check out past polls.