Errata

http://www.perl.com/perl/faq now reads http://language.perl.com//faq/.

"The following is a listing of the interactive CPAN modules:"

now reads

"The following is a synopsis of the commands that you can
execute from the CPAN shell:"

LINE: while (<>) {
... # your script goes here
}

In the -p entry, the code has been changed to:

LINE: while (<>) {
... # your script goes here
} continue {
print;
}

$now = localtime();

sentence after first line of code now reads:

'But in a scalar context, localtime displays the date
like "Fri Aug 18 08:22:16 2000".'

comma removed after "OUTFILE."

second code block now reads:

LINE: while (<SCRIPT>) {
next LINE if /^#/; #discard comments
print:
}

"The last bracket" now reads "The last parantheses."

reads "/(?<!bad)boy/".

the lines of code. It now reads:

"sub addem ($$) {
...
}"

"|| die" now reads "or die".

/etc/prototypes

now reads

/etc/protocols

"who" now reads "id."

"(usually /etc/group)" now reads "(usually /etc/networks)."

"group" now reads "password" (2x).

Everything starting from "Often used with ..." was moved to the entry for "|"
above.

xperl -MO=C[,options] program
^
now reads CC.

now reads:

use base qw(Foo Bar);

last code block under "File::DosGlob" now reads:


C:> perlglob ...

"scale" now reads "n" (italic).

"$f" now reads "$i".

now read:

getprotobyname
getprotobyname (protocolname)
Returns information about a protocol given its name.

getprotobynumber
getprotobynumber (protocolnumber)
Returns information about a protocol given its number.

of code. It now reads:

"use strict 'vars';
...
no strict 'vars';"

"completion_list" now reads "array".

now reads:

print << EOF

In the same example, "<BR>" was removed from the end of the five lines in which
it appeared.

The table now reads as follows:

start_html Generates start of an HTML document.
end_html Generates end of an HTML document.

user_agent line -- USER_AGENT now reads HTTP_USER_AGENT. Removed the word
"header" at the end of 2nd column.

path_info line -- EXTRA_PATH_INFO now reads PATH_INFO. Removed the word
"header" at the end of 2nd column.

next four lines -- removed the word "header" at the end of 2nd column.

referer line -- REFERER now reads HTTP_REFERER. Removed the word "header" at
the end of 2nd column.

next two lines -- removed the word "header" at the end of 2nd column.

last line (on p. 332) -- removed the word "header" at the end of 2nd column.

now read "% show_birthday ..."

Under filefield, "for Netscape browsers" now reads removed.

"\%label" now reads "\%labelhash".

Under "scrolling_list", "selected" item in the variable list now reads :

"default".

"@listarray" now reads "@list".

document description.". The following entry was added after copyright:

description
Description for this document.

now reads "Generates a <FORM> tag."

"Post-request stage" now reads "Post-read stage".

"standard Apache header" now reads "standard Apache directive."

The lines:

$db_handle = DBI->connect(dbi:mSQL:bookdb, undef, undef)
|| die("Connect error: $DBI::errstr");

now read

$db_handle = DBI->connect("dbi:mSQL:bookdb", undef, undef)
|| die("Connect error: $DBI::errstr");

Note the quotes naming the database.

In the first block of code the third line read:

}) || die db_handle->errstr;

It now reads

}) || die $db_handle->errstr;

Under the "fetchrow_array" heading, it used to read:

"$array = $st_handle->fetchrow_array"

It now reads:

"@array = $st_handle->fetchrow_array"

"The filehandle $FH" now reads "The filehandle FH".

"Net:SMTP" now reads "Net::SMTP".

"remote server" now reads "remote mail server."

"Net:SMTP" now reads "Net::SMTP".

"msg_number" now reads "msg_num" (compared with syntax line and compared with
the other entries).

"Mail::Internet should attempt"

now reads

"Mail::Internet should not attempt"

Net::FTP and CGI.pm to list files".

442 was removed and replaced with:

#!/usr/bin/perl -w

use CGI qw(:html3);
use Net::FTP;

my $ftp_host = 'cpan.perl.org'; # ftp host
my $ftp_user = 'anonymous'; # username
my $ftp_pass = 'me@my.domain'; # password
my $ftp_dir = '/pub/perl/CPAN';

my $ftp = Net::FTP->new($ftp_host, Debug => 0); # Net::FTP constructor
$ftp->login($ftp_user, $ftp_pass); # login with user/pass

$ftp->cwd($ftp_dir); # set current directory

# Now for the HTML output ...
my $query = CGI->new();

print $query->header;
print $query->start_html, "
";

print $query->h1("FTP dir listing for ftp://$ftp_host$ftp_dir"),"
";
print $query->hr, "
";

foreach my $entry (@{[$ftp->ls()]}) {
print $query->a({href=>"ftp://$ftp_host$ftp_dir/$entry"}, $entry),
print $query->br, "
";
}

print $query->end_html, "
";

$ftp->quit;

The first "file" (in "but stores file") is now in italic, and ", file" at the
end of the sentence was removed.

macdef name, line2: "FTP" (in "FTP command" and "with FTP") now reads "ftp".

$ua->get_basic_credentials(realm, url, [proxy])

Used to read:


$req = HTTP::Request->new(GET, $url)

Now reads:

$req = HTTP::Request->new(GET, $url);

now reads: "Adds a new value to a header field of the object."

The second "resplist" now reads "@resplist."

"EVENT_LOG_FORWARDS_READ" now reads "EVENTLOG_FORWARDS_READ".

INDEX:

{597} Under "Win32::GetNextAvailDrive()", the "" was removed from "d:".