Errata

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"