Errata for Data Munging with Perl are placed below.

If you find any errors in the book, feel free to notify the author by taking part in our Author Online Forum.

Page 21 (bottom code example):

push @{$year{$year}}, $rec;

should be

push @{$years{$year}}, $rec;

There's no way to really incorporate this correction without a lot of
rewriting, but just to clarify what I say on these pages:

The /o modifier can be used with both m// and s///. When used with s///,
it only works on on the search pattern, _not_ on the replacement pattern.

Page 74 code example:

@rec{@fields) = split(/:/);

should be

@rec{@fields} = split(/:/);

and

$users{$rec->{name}} = \%rec;

should be

$users{$rec{name}} = \%rec;

Page 90 last code example:

while ($data =~ /$num_re/g) {

should be

while ($data =~ /($num_re)/g) {

Page 105 first paragraph:

we stored this value in $file

should be

we stored this value in $old

Page 112 code example:

$/ = "\n%%\n";

should be

$/ = "%%\n";

Page 166 Sample HTML file:

<li>Item two</li></ul>

should be

<li>Item two</li></ol>

Page 173 code example:

$p->get_tag('table') !! die ...

should be

$p->get_tag('table') || die ...

Page 182 code example:

'TEMPERATURE', [ ( 'DEGREES'

should be

'TEMPERATURE', [ { 'DEGREES'

This error occurs twice.

Page 183 Fig 10.1:

In the column with three smaller rectangles, the last number in the right
hand column of the bottom rectangle (i.e. the minimum temperature) should
be 6 not 12.

Page 218 last code example:

footer: /\d+/ 'CDs'

should be

footer: /\d+/ 'Records'

Page 234 first bullet point:

The last sentance, "Full instructions ... perldoc perlmodinstall" should be
moved to the end of the first para on page 233.

Page 242 last bullet point:

"two weeks" on Friday

should be

"two weeks on Friday"

Page 266 second code example:

$_; = <STDIN>;

should be

$_ = <STDIN>;

and

redo unless $_'

should be

redo unless $_;