Learning Perl, 2nd Edition
by Randal Schwartz and Tom Christiansen


Here are the changes from the 7/97 reprint:


[217] the answer to #2 was missing.  I added this line after #1:

2. See the Addendum on page 271, after the index, for the answer to this
exercise.

This made the answers that were numbered 2 and 3 into 3 and 4.


[223] added this line after the answer to #1 from chapter 9:

2. See the Addendum on page 271, after the index, for the answer to this
exercise.


[271] This whole page is new.

Addendum: Additional Answers for Appendix A Exercises

Here is the answer to exercise 2 from Chapter 6:

2. Here's one way to do it:

@ARGV = reverse @ARGV;
print reverse <>;

The first line just takes any filename arguments and reverses
them. That way if the user called this script with command line
arguments "camel llama alpaca", @ARGV would then contain "alpaca llama
camel" instead. The second line reads in all the lines in all the
files in @ARGV, flips them end on end, and prints them. If no
arguments were passed to the program, then as before, <> works on
STDIN instead.


Here is the answer to exercise 2 from Chapter 9:

2. Here's one way to do it:
{
  print "Enter a number (999 to quit): ";
  chomp($n = <STDIN>);
  last if $n == 999;
  $sum += $n;
  redo;
}

print "the sum is $sum\n";

We're using a naked block with a redo and a last to get things done
this time. Start by printing the prompt and grabbing the number. If
it's 999, exit the block with last and print out the sum on
exit. Otherwise, we add to our running total and use redo to execute
the block again.