Errata

"Transport" was changed to "Transfer" in first sentence.

Semi-colon in "%20;" was changed to an emdash.

In the parenthetical, "for the first eight bits" now reads "for the first
seven bits."

The regular expressions in these two functions were missing the VERY needed /g
modifier.

In each of the code blocks, "ei" was replaced with "egi."

"url_escape" and "url_unescape" were replaced with "uri_escape" and
"uri_unescape".

did read:

"The while loop iterates over %ENV with the each command to add ..."

now reads:

"The first foreach loop iterates over %ENV to add ..."

Content-Length: 67

now reads

Content-Length: 40

<SELECT NAME="activity" SIZE="4" MULTIPLE>

now reads

<SELECT NAME="activity" SIZE="6" MULTIPLE>

"[da-f]" was changed to "[a-f0-9]" in lines 17 and 21 in the parse_form_data
subroutine on page 81, twice in each line.

"$name" now reads "$user."

"$" was added after ".x".

A line of code was inserted:

<INPUT TYPE="TEXT" NAME="filename">
<P><INPUT TYPE="SUBMIT">
</FORM>

until ( sysopen OUTPUT, UPLOAD_DIR . $filename, O_CREAT | O_RDWR | O_EXCL ) {

OUTPUT;"):

print $q->header( "text/plain" ), "File received.";

The line:

print $q->start_form( method => "get", action => "/cgi/myscript.cgi");

generates the following perl code:

<FORM METHOD="method" ACTION="post" ENCTYPE="action" /cgi/mysqcript.cgi>

The line now reads:

print $q->start_form( -method => "get", -action=> "/cgi/myscript.cgi");

which will generate the correct perl code:

<FORM METHOD="post" ACTION="/cgi/mysqcript.cgi"
ENCTYPE="application/x-www-form-urlencoded">

print $q->radio_group(
-name => "curtain"

now reads

print $q->radio_group(
-name => "look_behind"

Line of code reading "use CGI;" HAS BEEN DELETED from both code snippets.

"use CGI;" was added at beginning of code.

Line 6 now begins with "print".

Line 8 now ends with a "," instead of a ";".

Line 6 now ends with a "," instead of a ";".

<TH>Software Title</TH></TR>
<TH>Home Page</TH></TR>

NOW READS:
<TH>Software Title</TH>
<TH>Home Page</TH>

"admin_news.epl" now reads "edit_news.epl."

There IS NOW only one form tag and it READS:

<form method="POST" action="/cgi/register.cgi"
onSubmit="return validateForm( this )">

if ( document.mbrowser.artistList.selectedIndex < 0 ) {

now reads

if ( document.mbrowser.artistList.selectedIndex >= 0 ) {

if ( document.mbrowser.concertList.selectedIndex < 0 ) {

now reads

if ( document.mbrowser.concertList.selectedIndex >= 0 ) {

"Select a Concert" CHANGED to "Select a Recording." Also, "Concert" CHANGED to
"Recording" in last line.

"song_data" CHANGED to "data".

Change "song_data" to "data".

entry with index 2 is missing

"/bookmarklets" -> "/bookmarklets/"

"feedback.cgi" NOW READS "buy.cgi"

my $subDomin = qq{ (?: [$letter$digit]
[$letter$digit-]{0,61}[$letter$digit] ) };

NOW READS:
my $subDomin = qq{ (?: [$letter$digit] |
[$letter$digit][$letter$digit-]{0,61}[$letter$digit] ) };

".procmail file" CHANGED to ".procmailrc file"

"LOCK_SH" CHANGED to "LOCK_EX"

below 2nd paragraph,

do{ $tmp_filename = tmpnam() }
until sysopen(FH, $name, O_RDWR|O_CREAT|O_EXCL);

NOW READS:

do{ $tmp_filename = tmpnam() }
until sysopen(FH, $tmp_filename, O_RDWR|O_CREAT|O_EXCL);

and

END { unlink( $tmp_filename) or die "Couldn't unlink $name: $!" }

NOW READS:

END { unlink( $tmp_filename) or die "Couldn't unlink $tmp_filename: $!" }

"$q->tr" CHANGED to "$q->Tr"

The following sentence was added:

You may need to modify the permissions of the
<EM>address</EM> file to allow the web server to write
to it.

"NAME="PHONE"" CHANGED to "NAME="phone"" (see page 252)

"/index.html" CHANGED to "/catalog/9781565924192/index.html"

"access.conf" CHANGED to "httpd.conf (or access.conf, if used)"

"query_track.cgi"

The get_items function is used by the cart function,
above, and the send_email function, below.

NOW READS:
The get_items function is used by the cart and thanks
functions, above.

"END_OF_MESSAGE", at the top of the page.

NOW READS:
$item_table
END OF MESSAGE

my $DOCUMENT_ROOT = $ENV{DOCUMENT_ROOT};

NOW READS:

my( $DOCUMENT_ROOT ) = $ENV{DOCUMENT_ROOT} =~ /^([w:/\-]+)$/
or die "Unsafe document root!";

"close DIR;" CHANGED to "closedir DIR;"

NOW READS:

s|($query)|<B>$1</B>|gio;

foreach my $file ( @files ) {
my $full_path = "$DOCUMENT_ROOT/$file";

foreach $full_path ( @sorted_paths ) {

NOW READS:
foreach my $full_path ( @sorted_paths ) {

return $text;

The lines

$index{"!OPTION:stem"} = 1 if $opts{'stem'};
$index{"!OPTION:ignore"} = 1 if $opts{'ignore'};

HAVE MOVED to appear after

tie %index, "DB_File", $opts{'index'}, O_RDWR|O_CREAT, 0644
or die "Cannot tie database: $!
";

not before.

s/<.+?>//gs;

NOW READS:
s/<(?:[^>'"]*|(['"]).*?1)*>//gs;

Everything after 1st sentence HAS BEEN DELETED in this paragraph.

"stem.pl, a Perl 4 library," NOW READS "Text::English"

"$conf{index}" CHANGED to "$opts{index}" (as used in Example 12-3)

NOW READS:
If the <EM>-stem</EM> option is specified, we call
the Text::English module's <EM>stem</EM> function
to remove all suffixes from the word and covert it
to lowercase. Text::English is distributed as a
component of the perlindex module.

The following line of code HAS BEEN DELETED:

my $file = basename( $path );

">" -> "<"

"UPPER_LIMIT" CHANGED to "LOAD_MAX".

The following line of code HAS BEEN DELETED:

[ 17, 15, 19, 15, 24 ],

The following line of code HAS BEEN DELETED:

seek TMPFILE, 0, 0;

"path to ImageMagick" CHANGED to "path to Image::Magick"

<FORM METHOD="POST">

NOW READS:
<FORM METHOD="POST" ACTION="/cgi/whats_related.cgi">

print $q->redirect( "/quiz.html" );

NOW READS:
print $q->redirect( "/whats_related.html" );

$q->h1( "What's Related To What's Related Query" );

NOW READS:
$q->h1( "What's Related To What's Related to $url" );

print $q->a( { -href => "$scriptname?url=$_->[0]" }, "[*]" ),

NOW READS:
my $esc_url = $q->escape( $_->[0] );
print $q->a( { -href => "$scriptname?url=$esc_url" }, "[*]" ), " ",

foreach ( @subrelated ) {
print $q->a( { -href => "$scriptname?url=$_->[0]" }, "[*]" ),
$q->a( { -href => "$_->[0]" }, $_->[1] )
}

NOW READ:
foreach ( @subrelated ) {
$esc_url = $q->escape( $_->[0] );
print $q->li(
$q->a( { -href => "$scriptname?url=$esc_url" }, "[*]" ),
$q->a( { -href => "$_->[0]" }, $_->[1] )
);
}

$q->text_field( -name => "url", -size => 30 ),

NOW READS:
$q->textfield( -name => "url", -size => 30 ),

while ( $data =~ s|(="[^"]*)"([^/ ])|$1'$2|g ) { };

NOW READS:
while ( $data =~ s|(="[^"]*)"([^>?/ ])|$1'$2|g ) { };
while ( $data =~ s/(<([^>"=]|="[^"]*")*)=(w+)/$1="$2"/ ) { };

"@RELATED_RECORDS" NOW READS "$RELATED_RECORDS"

"the $href tag" NOW READS "the $href variable"

"... to return all necessary HTML headers..."

"HTML headers" should be replaced by "HTTP headers".

$id = 2000;
$field = $id;

NOW READ:
my $id = 2000;
my $field = $id;

A space after #! HAS BEEN DELETED and path HAS BEEN REFORMATTED as regular font.

end of line 1: "conf" NOW READS "data"
end of line 2: "data" NOW READS "conf"

"print $q->tr" NOW READS "print $q->Tr".

while (<FILE>) {
next if (/^select/);
next if (/^update/);
...
}

NOW READS:

while (<FILE>) {
next if (/^select/);
next if (/^update/);
...
}

$code .= "next if (/^$keyword/);
";

NOW READS:
$code .= "next if (/^$keyword/);
";

This section listed the first edition of Jon Bentley's book Programming Pearls.
This reference HAS BEEN CHANGED to the current edition:

Bentley, Jon. Programming Pearls, Second Edition. ACM Press and
Addison-Wesley, 1999.