Errata for Programming Perl

line 2, changed: /home/spp to /home/spp:

/(?:(?!foo)...|^..?)bar/ to /(?:(?!foo)...|^.{0,2})bar/

changed to ".. ..."

if ( ("fred" & "1234") =~ /[^]/ ) { ... }

all return values are likewise returned to multiple return values are likewise returned

immediately after setting $|, you may simply print ""; (The "" was in a different font from the rest of the book.)

"select (output filehandle)" and "select (ready file descriptors)"

$pwd = (getpwuid $<)[1]; was changed to: $pwd = (getpwuid($<))[1];

code block: foreach $key (sort { $hash{$b} <=> $hash{a} } keys %hash)) {

To sort an array by value to: To sort a hash by value

$file =~ s#^s#./$&#; open FOO, "< $file"; to $file =~ s#^(s)#./$1#; open (FOO, "< $file");

printf "%${width}.${precision}f ", $value; to: $output_arr[$precision] = sprintf "%${width}.${precision}f", $value;

elsif ($rc > 0x80) changed to elsif (($rc & 0xff) == 0) { code sample 2,last line, $ok = ($rc != 0); changed to $ok = ($rc == 0);

The next-to-last line of the code sample used to read: }; The semi-colon was removed. It now reads: }

Insert 0 between "or" and "if"

$coderef = &handler; to $code_ref = &handler; (It looked like "deref", but it's a reference, not a dereference.)

${"${pkg}::$name"} = 5; changed to ${"${$pkg}::$name"} = 5;

references to arrays." changed to "Suppose @LoL is already an array of references to arrays."

"When a block is exited"

"$port"

print Client "Hello there, $name, it's now ", changed to print CLIENT "Hello there, $name, it's now ", (Just changed "Client" to "CLIENT")

reversed, as shown: untie %db_hash; undef $db_obj; # removing the last reference to the DB # closes it. Closing DB_FH is implicit. now reads: undef $db_obj; # removing the last reference to the DB # closes it. Closing DB_FH is implicit. untie %db_hash

$fh->setpos $pos; changed to: $fh->setpos($pos);

tie %hash, ... changed to: tie (%hash, ...

$bar = 'blech' changed to: $opt_foo = 'blech'

$h = -20.00732 * 1.7; # 34.012444 .... ... $h = -20.00732 * $g; # "34.012444" ... (Removed the hyphens: the numbers changed to "20.00732")

untie %h; changed to: untie %hash;

ok" line

"tr/// (translation) operator, 74, 234"