Errata for Learning Perl

ftp.cs.colorado.edu to 128.138.243.20

subroutine good_word"

footnote)

next-to-last line

sentence in the next-to-last para. into two ("...is formed. So at most," instead of "...is formed, so at most,")

changed "7" to "7.0"; also, in line -6 of the first example, changed 'open MAIL,"|mail' to 'open (MAIL, "|mail'

It now reads: "can't rename $filename".

dbmopen (%last_good, "lastdb", 0666),; changed to dbmopen (%last_good, "lastdb", 0666);

and Precedence of Operators: Highest to Lowest"

Or whatever the input record separator $/ is set to.

print ("The answer is ", @a," ");

Used to read: (1.2 .. 5.2) # same as (1.2, 2.2, 3.2, 4.2, 5.2) Now reads: (1.2 .. 5.2) # same as (1, 2, 3, 4, 5)

Used to read: (1.3 .. 6.1) #same as (1.3,2.3,3.3,4.3,5.3) Now reads: (1.3 .. 6.1) #same as (1, 2, 3, 4, 5, 6)

($a,$b,$c) to ($a,$b,$c);

end of each line

@fred = @barney = (2, 3, 4); ' # same thing deleted that extraneous apostrophe. line now reads @fred = @barney = (2, 3, 4); # same thing

than" to "that is, an index of greater than" and deleted the para. beginning "Assignment to an array element..."

to %hashname in 3 places.

In the 5th paragraph in "Hash Slices" section, line of code used to read: @league{keys %score} = values %score; It now reads: %league{keys %score} = values %score;

This was a mistake on my part - $line_ should have been changed to $line (i.e. I incorrectly added a close paren).

after "$line"

So did the period after the "c".

The code was incorrectly changed in the 7/98 reprint to read : "l" (letter el) instead of "1" (number one). It has been changed to (letter L capitalized only to emphasize it): $a =~ /(.)1/; # also true (matches the double L)

of the line, after "hello, world"

The second example from the bottom used to read: $result = (join "+", "", @fields); Moved parantheses, so it now reads: $result = join ("+", "", @fields);

say_hello()

wrong keyword: changed "returns", is "return".

2nd code sample: line 10 used to read: @result; # return the final list It now reads: return@result; # return the final list

changed the last } to ]

"/etc/hosts"

warn "hmm... couldn't chmod $file.$!"; Now reads: warn "hmm... couldn't chmod $file: $!";

of the line

routine"; and in the 3rd para. from the bottom, replaced "sort routine" with "comparison routine" (2 occurrences)

"represented as $."

In the program at bottom of page, line 5: h1("Hello World") now reads: h1("Greetings, Terrans!").

"print q(..."

In the code at the top of the page, lines 8 and 11 used to read: "print q(......," They now read: "print p(......"

"anonymous arrays"

"$entry," now reads "$entry" (deleted comma)

2nd code example, line 9 use to read: "$result->title" Now reads: "$webdoc->title"

than or equal to 32"

2nd para. used to read: "because that element has been printed" Now reads: "because that element has been popped"

while (<>) { print if (/^[^aeiou]*a[^eiou]*e[^aiou]*i[^aeou]*o[^aeiu]*u[^aeio]*$/); }

"for (sort by_last keys %last) {" Now reads "foreach (sort by_last keys %last) {"

was deleted

Paragraph 1, line 2 now reads: Deleted Modules new to 5.004 are marked like this.

Other Operators, paragraph 1, line 2 used to read: "? :" It now reads: "? :".

comment: "unchop" now reads "unchomp"

=> operator, 193-194