Perl in a Nutshell
by Ellen Siever, Stephen Spainhour, & Nathan Patwardhan


Here are the changes made in the 9/00 reprint:


{7} 1st bullet:
http://www.perl.com/perl/faq now reads http://language.perl.com//faq/.


?8? The section entitiled "The Perl Institute" has been removed. 

"published by John Orwant" now reads "edited by John Orwant."

Under "Perl Conferences," the section now reads:

	For years, Usenix has devoted tracks of its conferences
	to Perl. However, starting in 1997, O'Reilly & Associates
	has been hosting conferences dedicated entirely to Perl
	(http://conferences.oreilly.com/). And Yet Another Perl
	onference (YAPC) made its debut in 1999 (http://www.yapc.
	org/).


{20} last sentence before list:

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


{36} In the -n entry, the code has been changed to:

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

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

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

{47} 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".'


{48} Code near bottom of page:
comma removed after "OUTFILE."


{50} second code block now reads:

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

?55? Under "$digit," the 2nd sentence now reads:

	"For example, $1 contains whatever text matches the
	first set of parentheses in the previous regular
	expression."


{56} Item 4:
"The last bracket" now reads "The last parantheses."


(65) last sentence on page:
"modifier" now reads "quantifier".


(67) line of code at top of page now reads "... : # matches ..."


{69} "(?<!=...)" now reads "(?<!...)". In the example, "/(?<!=bad)boy/" now
reads "/(?<!bad)boy/".


{75} first code block, last line:
"|| die" now reads "or die".


{95}  Under heading "endprotoent":
	
     /etc/prototypes

now reads
	
     /etc/protocols


{102} Under heading "getpriority":
"who" now reads "id."


{125} Under heading "setnetent":
"(usually /etc/group)" now reads "(usually /etc/networks)."


{126} Under heading "setpwent":
"group" now reads "password" (2x).


{151} Under heading "||":
Everything starting from "Often used with ..." was moved to the entry for "|" 
above.


{173} Invocation line under B::CC:
	
     	xperl -MO=C[,options] program
	         ^
now reads CC.


{177} In the section "base", in the first code block, the single line of code 
now reads:
	
     	use base qw(Foo Bar);


{232} last code block under "File::DosGlob" now reads:
 
	C:\> perlglob ...

 
(259) Math::BigFloat, 2nd bullet:
changed sentence so it reads:
	
     "All methods ... expect and return a number string ..., with embedded 
     whitespace ignored in the input."

Also, last bullet was removed.


{260} fdiv:
"scale" now reads "n" (italic).


{262} bcmp:
"$f" now reads "$i".


{269} The getprotobyname and getprotobynumber entries at the top of the page 
now read:

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

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


{297} TAB:
"completion_list" now reads "array".


(325) 1st paragraph under code:
"HTTP protocol" now reads "HTTP server".


{327} line 2 of the Perl script:
now reads:

	print << EOF

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


(329) The comment now reads: 

     "Use $key as index for %parameters hash, ..."


{331} Table 10-1:
The table now reads as follows:

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


{331-332} Table 10-1 under "Handling Environment Variables":
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.


{335} In the first and second code blocks, the lines that start "% test ..." 
now read "% show_birthday ..."


{338} Under -expires, "nY" now reads "ny".


{339} Under "delete_all", text now reads "Deletes all parameters."

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


{345} radio_group, synopsis line and list term:
"\%label" now reads "\%labelhash".


{347} Under "scrolling_list", "selected" item in the variable list now reads 
"default".


{348} \%labelhash, syntax code, line 2:
"\@listarray" now reads "\@list".


{349} Under -meta, the text for "copyright" now reads "Copyright for this 
document description.".  The following entry was added after copyright:

  	description
    	  Description for this document.


{350} start_multipart_form, 1st sentence of description:
now reads "Generates a <FORM> tag."


{355} Removed entire last paragraph under "Installing mod_perl".


{356} Table, 3rd line from bottom:
"Post-request stage" now reads "Post-read stage".


{357} 1st paragraph after code, last sentence:
"standard Apache header" now reads "standard Apache directive."


{368}  Second section, Database Handles and Statement Handles:
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.


{369} In the first block of code the third line read

     }) || die db_handle->errstr;

It now reads

     }) || die $db_handle->errstr;


{382} 2nd paragraph from bottom:
"The filehandle $FH" now reads "The filehandle FH".


{392} last line:
"Net:SMTP" now reads "Net::SMTP".


{396} last line before list (Net:POP3):
"Net:SMTP" now reads "Net::SMTP".


{393} datasend:
"remote server" now reads "remote mail server."


{408} next_labeled_message:
"msg_number" now reads "msg_num" (compared with syntax line and compared with 
the other entries).


{412} new/Body:
	
     "Mail::Internet should attempt" 

now reads
	
     "Mail::Internet should not attempt"


(433) first paragraph, third sentence:
now reads "The entries in the list show articles that have been read."


(441) first sentence on page:
"from remote hosts" now reads "from and to remote hosts".


{441} "and CGI.pm" was inserted after "uses Net::FTP" so it now  reads "uses
Net::FTP and CGI.pm to list files".


{441-442} The example that starts at the bottom of page 441 and goes onto page
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, "\n";

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

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

print $query->end_html, "\n";

$ftp->quit;


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


{449} 1st paragraph, line 3:
macdef name, line2: "FTP" (in "FTP command" and "with FTP") now reads "ftp".


{459} Under "get_basic_credentials," the synopsis line was changed to:

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