Errata

Reads "Perl 9 tries to fill the gap", but should read "Perl tries to fill the gap". This was reported before, but it shows-up still in my mobi eBook version...

Note from the Author or Editor:
Change as noted.

Reads "Perl 9 tries to fill the gap", but should read "Perl tries to fill the gap". The 9 did not show up in the original sources or the QCs, but is in the book. Go figure.

Reads "Perl 9 tries to fill the gap", but should read "Perl tries to fill the gap". The 9 did not show up in the original sources or the QCs, but is in the book.

Error only visible when using HTML view. Earlier page 111 correction left off the \n in the print statement.

$_ = "yabba dabba doo";
if (/y(.)(.)\2\1/) { # matches 'abba'
print "It matched a after the y";
}

Note from the Author or Editor:
The line should read:

print "It matched a after the y\n";

Instead of
"The perlfaq2 manpage"
it should be
"The perlfaq3 manpage"
=

Note from the Author or Editor:
Change as noted. It should point to the Programming Tools section of the perlfaq. This is the second paragraph from the top.

The last clause in the paragraph states: "but don't try show the contents."

Note from the Author or Editor:
should read "but don't try to show the contents."

The first is on page 27, last paragraph of Subsection "Scalar
Variables": There I read
Scalar variables in Perl are always referenced with the
leading $&.

Should this be
Scalar variables in Perl are always referenced with the
leading $.

Note from the Author or Editor:
Change as noted.

If $meat has never recieved a variable, then $barney in
$barney = "fred ate a $meat";
has the value "fred ate a " and not "fred ate a", so the trailing " "
of the strings should remain?

Note from the Author or Editor:
Change as noted

"An array (the way you..." should read, "A list literal (the way you..."

Note from the Author or Editor:
Wow. How did that mistake ever get through. Change as noted.

Hello,

on page 69 in 2nd code example there is:

my($max_so_far) = shift @_;

But isn't shift returning scalar? If so parentheses are useless here, aren't they?

Note from the Author or Editor:
Change this line to not use the shift

my($max_so_far) = @_;

Change

$_ = "aa11bb";

to

$_ = "xaa11bb";

Note from the Author or Editor:
Change as noted

"Coding conventions" that seem to apply to the rest of the book are not followed in section "Named Captures", i.e closing braces in examples are all indented wrong, tab is 4 whitespaces instead of 2, and no space in between if and opening parenthesis and added single white space after opening parenthesis and before closing parenthesis, e.g.

use 5.010;

my $names = 'Fred or Barney';
if( $names =~ m/(\w+) and (\w+)/ ) { # won't match
say "I saw $1 and $2";
}

should be like:

use 5.010;

my $names = 'Fred or Barney';
if ($names =~ m/(\w+) and (\w+)/) { # won't match
say "I saw $1 and $2";
}

Note from the Author or Editor:
This is true, but we're not going to change it for this edition.

? And check out YAPE::Regexp::Explain in CPAN as a regular-expression-to-English translator.

the module's name should be YAPE::Regex::Explain

Note from the Author or Editor:
Change as noted.

If the input string says "I saw Wilma yesterday", the up-to-five characters are " yest" - including the blank.

Note from the Author or Editor:
The leading space doesn't show itself. Change the sentence to use quotation marks around the string:

up-to-five characters are " yest"

Note the space immediately after the opening quotation mark.

fooglue, should be "foo glue" or just glue

Note from the Author or Editor:
Change "fooglue" in code comment to "foo glue"

In the paragraph starting with "Some folks", the last sentence says "...(see the multiple-file rename example in Chapter 14).".
Actually it should refer to Chapter 13 (p.197) instead.

Note from the Author or Editor:
Change as noted

Change

foreach my $try ( 0, undef, '0', 1, 25 ) {

to remove the "my"

foreach $try ( 0, undef, '0', 1, 25 ) {

Note from the Author or Editor:
Change as noted

should be semicolon at end:

use File::Basename;

(you always put semicolons in the book, after single lines of code, even though technically they are not needed, but here, if I follow this up with the rest of the code appearing later, hell breaks loose)

Note from the Author or Editor:
Change as noted

'... rather than the double colon we used with moreinfo="none">File::Basename' includes the extraneous markup 'moreinfo="none">'.

Note from the Author or Editor:
change as noted

Change

foreach my $param ( param() )

To remove the "my"

foreach $param ( param() )

Note from the Author or Editor:
Change as noted

There is a missing space in "ln-s"; it should be "ln -s".

Note from the Author or Editor:
Change as noted

"it's a symlink, but it doesn't exist"

should read

"it's a symlink, but the file it references doesn't exist"

or similar.

Note from the Author or Editor:
change to "it's a symlink, but its target doesn't exist"

"on directory per call" should be "one directory per call".

Note from the Author or Editor:
Change as noted

"... it can only remove *one* directory per call:"

Note from the Author or Editor:
change "can only remove on directory per call:" to "can only remove one directory per call:" with an "e" after the "on"

The text 'moreinfo="none">' at the beginning of the line appears to have been interpolated and should be deleted. Possibly this is a markup command with its leading "<" missing.

Note from the Author or Editor:
Remove the moreinfo="none"> before "stat" on the last line of the first paragraph

'... same type of values returned from the moreinfo="none">stat function ...' includes the extraneous markup 'moreinfo="none">'.

Note from the Author or Editor:
Change as noted

The last clause in the paragraph states: "but don't try show the contents" instead of "try to show"

The code doesn't sort correctly. In it family_name 'a' is compared to itself, and personal_name 'a' is being compared to family_name 'b'.

$family_name{$a} cmp $family_name{$a} or
$personal_name{$a} cmp $family_name{$b} or

should be:

$family_name{$a} cmp $family_name{$b} or
$personal_name{$a} cmp $personal_name{$b} or

Note from the Author or Editor:
Change as noted

Change the line with foreach, which is missing a parenthesis. The new line should be have a left parenthesis after the ..

foreach my $divisor ( 2 .. ( $number/2 ) ) {

Note from the Author or Editor:
Change as noted

Says: "we put the longer value in $longer."
Should say: "we put the longer value in $longest."

Note from the Author or Editor:
This is the final line in the first body paragraph on page 272. That's the last exercise answer for chapter 6.

In the solution to Ch. 9, exercise 2:

Three (3) unless loop control structures are used. However, the unless loop is not introduced until Chapter 10.

One could use:

if ( ! defined $in ) {

for example, instead of

unless ( defined $in ) {

$ENV{$key} ? $ENV{$key} : "(undefined)";
should be:
defined $ENV{$key} ? $ENV{$key} : "(undefined)";

Note from the Author or Editor:
Change as noted.

The excercise asks to print "Fizz", "Bin" and "Sausage", but the answer prints "fizz", "buzz" and "sausage" (Bin vs buzz, and also note the case...).

Note from the Author or Editor:
Change ' buzz' to ' bin', as noted

"also know as" instead of "also known as"

Note from the Author or Editor:
Change as noted. This is in Appendix B in the second paragraph.