Errata for Perl for System Administration

The sentence "It is better to bite the bullet and write \\winnt emp..." now reads "...and write \\winnt\temp\..."

"Sub ScanDirectory{" now begins with a lowercase "s" as in "sub ScanDirectory{."

the line: my $r=sysread(T,$t,1); now reads: my $r=sysread(T,$i,1); because the loop variable is $i, not $t.

Chapter 10, the checkfile program, the extended version near the end of the chapter right below the line, "Let's extend our previous attribute-checking program to include MD5:" open(F,$savedstats[0]) or die "Unable to open $opt_c:$!\n"; should be: open(F,$savedstats[0]) or die "Unable to open $savedstats[0]:$!\n";

The getpwent() and associated user functions return two additional fields ($quota, $comment) which are just before $gcos. A footnote was inserted on this page. The footnote marker is after the colon in "let's look at the fields our code returns:". The footnote text: The values returned by <CW>getpwent()<CW> changed between Perl 5.004 and 5.005; this is the 5.004 list of values. In 5.005 and later, there are two additional fields, <CW>$quota</CW> and <CW>$comment</CW>, in the list right before <CW>$gcos</CW>. See your system documentation for <CW>getpwent()</CW> for more information.

spurious closing brace 'winmgmts:{impersonationLevel}=impersonate}!Win32_Process') was changed to: 'winmgmts:{impersonationLevel=impersonate}!Win32_Process')

spurious closing brace 'winmgmts:{impersonationLevel}=impersonate}!Win32_Process') was changed to: 'winmgmts:{impersonationLevel=impersonate}!Win32_Process')

print "--- Methods --- "; was changed to: print " --- Methods --- ";

'winmgmts:{impersonationLevel}=impersonate}') was changed to: 'winmgmts:{impersonationLevel=impersonate}')

Table 6-1 now states that Net::LDAP does support SSL.

$ldif = new Net::LDAP::LDIF($filename); now reads: $ldif = new Net::LDAP::LDIF($filename,"w");

Win32::EventLog::GetMessageText = 1; is now prefaced with a dollar sign, like so: $Win32::EventLog::GetMessageText = 1;

$log = new Win32::EventLog("System") or die "Unable to open system log:$! "; now reads: $log = new Win32::EventLog("System") or die "Unable to open system log:$^E ";

kill -HUP $pid; now reads: kill 'HUP', $pid;

Win32::EventLog::Open($EventLog,'System','') or die "Could not open System log:$! "; now reads: Win32::EventLog::Open($EventLog,'System','') or die "Could not open System log:$^E ";