Answers to Chapter 14 Exercises
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
whilemodifier, 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
whileloop is reading the input a line at a time (from the user’s choice of input sources, as shown by the diamond operator), andsplitis, 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, thatwhileloop will put all of the numbers from the input into@numbers.The
foreachloop takes the sorted list and prints each one on its own line, using the%20gnumeric format to put them in a right-justified column. You could have used%20sinstead. What difference would that make? Well, that’s a string format, so it would have left ...