Learning Perl, 5th Edition

Answers to Chapter 14 Exercises

1. Here’s one way to do it:

   my @numbers;
   push @numbers, split while <>;
   foreach (sort { $a <=> $b } @numbers) {
     printf "%20g\n", $_;
   }

   That second line of code is too confusing, isn’t it? Well, we did that on purpose. Although we recommend that you write clear code, some people like writing code that’s as hard to understand as possible,^[*] so we want you to be prepared for the worst. Someday, you’ll need to maintain confusing code like this.

   Since that line uses the while modifier, it’s the same as if it were written in a loop like this:

   while (<>) {
     push @numbers, split;
   }

   That’s better, but maybe it’s still a little unclear. (Nevertheless, we don’t have a quibble about writing it this way. This one is on the correct side of the “too hard to understand at a glance” line.) The while loop is reading the input a line at a time (from the user’s choice of input sources, as shown by the diamond operator), and split is, by default, splitting that on whitespace to make a list of words—or, in this case, a list of numbers. The input is just a stream of numbers separated by whitespace, after all. Either way that you write it, then, that while loop will put all of the numbers from the input into @numbers.

   The foreach loop takes the sorted list and prints each one on its own line, using the %20g numeric format to put them in a right-justified column. You could have used %20s instead. What difference would that make? Well, that’s a string format, so it would have left ...