Errata

Example file ex02_capitalizer.pl has for line 13:

my $cust_xml = XMLin('./customers.xml', forcearray=>1);

and it should be:

my $cust_xml = XMLin('./ex01_spamdoc.xml', forcearray=>1);

Either that or change the example file name to customers.xml.

Downloaded Code:
use XML::Parser;

my $xmlfile = shift @ARGV; # the file to parse

# initialize parser object and parse the string
my $parser = XML::Parser->new( ErrorContext => 2 );
eval { $parser->parsefile( $xmlfile ); };

# report any error that stopped parsing, or announce success
if( $@ ) {
$@ =~ s/at \/.*?$//s; # remove module line number
print STDERR "\nERROR in '$file':\n$@\n";
} else {
print STDERR "'$file' is well-formed\n";
}

In line 12,14
Change $file to $xmlfile

Sorry, I'm reading it online, so I don't know the page number, but here's the URL:

http://safari.oreilly.com/main.asp?bookname=9780596002053&snode=24

"It's possible to write an entire document in 1-byte characters and have it be
indistinguishable from ISO Latin-1 (a humble address block with addresses ranging
from 0 to 255)"

I don't think that's true. While lower ASCII is identical with UTF8, higher ASCII

Unbalanced parenthesis, probably want:
<!ELEMENT sandwich (((

A minor quibble however the example 3-4 XML file is not "well formed". Here is the XML file ex04_datafile.xml as in the book:

<preferences>
<font role="console">
<fname>Courier</name>
<size>9</size>
</font>
<font role="default">
<fname>Times New Roman</name>
<size>14</size>
</font>
<font role="titles">
<fname>Helvetica</name>
<size>10</size>
</font>
</preferences>

Please note that it has the tag <fname>...</name>.

Aforesaid file should be:
<preferences>
<font role="console">
<fname>Courier</fname>
<size>9</size>
</font>
<font role="default">
<fname>Times New Roman</fname>
<size>14</size>
</font>
<font role="titles">
<fname>Helvetica</fname>
<size>10</size>
</font>
</preferences>


Thanks. Though it was a good example file to use on ex01_dumbparser.pl.

I believe

<doctype book [

should read

<!DOCTYPE book [

"use XML::Handler::Subs" should be terminated with a semi-colon.

the line:
use XML::Parser::PerlSax
is duplicated from the bottom of page 96

$self->in_element( 'h1' )
should read
$self->within_element( 'h1' )

since in_element tests for the current innermost element, which in the critical case
of "big" (in the example) is "em", whereas what is required is to test whether we are
at any level within an h1.

Incidentally, despite an existing erratum, I find that the line also works without
the quotes around h1:
print $data if( $self->within_element( h1 ));

return value == 1 s.b. ELEMENT_NODE?

There is no discussion of the constants included w/ the xml packages, so the actual
name is a guess.

The example will not work without including the XML::DOMIterator package. Assuming
that a reader uses the downloadable examples, adding a

use ex01_iter;

line at the top of the program will work. This also requires that

1;

be added to the very end of the ex01_iter.pm package.

Running example 8-3 returns the following message:

this function is obsolete!
It was disabled in version 1.54

My version of XML::LibXML is 1.58, the most current at the time of this submission.
Further investigation has found that iterator() is the offending function and has
been deprecated.

The recurring s/amp/amp error - wouldn't 'tr' be a better way of doing this?

<?XML Version="1.0">

should be

<?XML Version="1.0"?>

Also,

<monkey-list>
<monkey>
<description xmlns:mm="http://www.jmac.org/projects/monkeys/mm/">

Should probably be

<monkey-list xmlns:mm="http://www.jmac.org/projects/monkeys/mm/">
<monkey>
<description>

As originally written, the XML causes the following error when processed using the
example at the bottom of page 183:

Undefined namespace prefix
xmlXPathCompiledEval: evaluation failed

my $parser = XML::ComicsML::Parser->new;

should it not be?

my $parser = XML::ComicsML->new;

The line:

print "</ul>
";

should precede the final line of code:

print end_html;

I think the line

my $parser = XML::XPath;

ought to be

my $parser = new XML::LibXML;

or

my $parser = XML::LibXML->new;

It doesn't look like XML::Xpath is used anywhere, but if it were, it would still need a "new".

***SAFARI ONLINE***