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.
| [reply] [Watch: Dir/Any] [d/l] [select] |
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>
| [reply] [Watch: Dir/Any] [d/l] [select] |