Errata for Perl in a Nutshell

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; }

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".'

$now = localtime();

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:".