Errata

while (defined ($name = <WORDSLIST>)) {

(missing close paren)

"($name = <WORDSLIST>)) {" (added right parenthesis)

}
} else { # rename the file so it gets noticed
rename ($filename, ""$filename.old");
}
close (WORDSLIST) ||
die "couldn't close $filename: $!";
}
}

with these lines

}
close (WORDSLIST) ||
die "can't close $filename: $!";
}
else {
# must close file before renaming it
close (WORDSLIST) ||
die "can't close $filename.old: $!"
rename ($filename,"$filename.old") ||
die "can't rename $filename: $!";
}
}
}

# must close file before renaming it
close (WORDLIST) ||
die "can't close $filename.old: $!"
rename ($filename,"filename.old") ||
die "can't close $filename: $!";

Line 3 now reads $filename, not $filename.old. Also, a semicolon was added at
the end.

close (WORDSLIST) ||
die "can't close $filename.old: $!"

"$filename.old" now reads "$filename." Also, a semicolon was added at the end.

backslash-dollar sign ($) sequence prevents substition of variable names by
their values.

added 1 row:

Left << >> (shift operators)

("<< >>" is in constant-width font)

under row 4, "Nonassociative | Named unary ...", added 2 rows:

Nonassociative < > <= >= lt gt le ge (relational operators)
Nonassociative == != <=> eq ne cmp (equality operators)

("< > <= >= lt gt le ge" and "== != <=> eq ne cmp" are in
constant-width font)

"array" now reads "list" (it's not yet an array).

decimals.

Code sample 6: changed "$a" to "@a" so that the line reads:

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

and in the following line,

"the value of $a" should be "the value of @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)

(1.3..6.1) # same as (1, 2, 3, 4, 5)

now reads

(1.3..6.1) # same as (1, 2, 3, 4, 5, 6)

"%somehash" (still in constant-width italics) and
line 2: changed "hash" to "array"

%league{keys %score} = values %score;

changed to:

@league{keys %score} = values %score;

**This change was made in the 4/98 reprint; however, it is incorrect.
The code should read 1 (one), not l (el). So here's how it should
read (letter L capitalized only to emphasize it):

$a =~ /(.)1/; # also true (matches the double L)

The code was incorrectly changed in the 4/98 reprint to read:

"l" (letter el) instead of "1" (number one): changed it back.
Here's how it now reads (letter L capitalized only to
emphasize it):

$a =~ /(.)1/; # also true (matches the double L)

$result = (join "+", "", @fields;)
to
$result = join("+", "", @fields);

$output = join ("
", @data, "";)
to
$output = join ("
", @data, "");

(transposed the right parenthesis and the semi-colon)

The last three lines of the second code example used to read:

close(IN); || die "can't close $a:$!"
close(OUT); || die "can't close $b:$!"
}

They now read:

}
close(IN) || die "can't close $a: $!";
close(OUT) || die "can't close $b: $!";

rmdir("gravelpit") || die "cannot rmdir gravelpit: $!";

added an extra blank line at the end of the code
(after line "END_of_Multiline_Text)

added this sentence to the 2nd paragraph from the bottom, following the
second to last sentence (ending in "at the start of the line"):

"The end token must not have any surrounding whitespace and
the line it's on must be terminated with a newline."

(still in constant-width font)

Used to read:

www.microsoft.com/msdn/sdk

Now reads:

http://msdn.microsoft.com/developer/sdk/

Microsoft has renamed the 'Active Messaging Library' the 'Collaboration Data
Objects (CDO) Library', which can be found at
http://msdn.microsoft.com/library/ --> Platform SDK --> Messaging and
Collaboration Services

c. A third way to do this is:
if (/^[eiou]*....
now reads:
if (/[^eiou]*....

The source code yields a script that doesn't execute properly on my system
(WinNT 4.0 SP5). It appears that escaping occurs in a scalar enclosed in ``.

Here's the an example of me running the script and the output:

C:Learning_PERLLP-W32>perl 14-1.plx Learning_PERLLP-W32foo
Learning_PERLLP-W32ar

File not found - Learning_PERLLP-W32foo

One solution to this problem is:

my ($src, $trg) = @ARGV;
die "$src is not a directory" unless -d $src;
die "$trg is not a directory" unless -d $trg;

$from =~ s/\/\\/g; # <------- Insert these substitution lines
$to =~ s/\/\\/g; # <------/

`xcopy /s /e $src $trg`;

INDEX:

"=> operator, 197-198"

"associative array keys", "associative array operators", and
"associative arrays"

chop( ) operator
defined, 50, 62
examples of, 25, 35, 52, 120, 221
introduced, 13

with these entries

chomp( ) operator
defined, 62
examples of, 25, 35, 52, 120, 221
introduced, 13
chop( ) operator, defined, 50

elements": changed "associative array" to "hash"

and index entry "empty list, and clearing out an associative
array": changed "an associative array" to "a hash"

hash keys, 16
hash operators, 75
hashes
creating new elements of, 74
defined, 73
example of assignment to, 17
introduced, 16
literal representation of, 74
order in, 73
removing elements from with delete, 76
sorting (sort-of), 163
stepping through with each( ), 76
variables, 73

"keys, of hashes"

removed index entry "lpr command, example of, 153"