 |  |
2.10. Exercises
The answers for all exercises can be found in Section A.1.
2.10.1. Exercise 1 [30 min]
The Oogaboogoo natives on the island have unusual names for the days and months. Here is some simple but not very well-written code from Gilligan. Fix it up, add a conversion function for the month names, and make the whole thing into a library. For extra credit, add suitable error checking and consider what should be in the documentation.
@day = qw(ark dip wap sen pop sep kir);
sub number_to_day_name { my $num = shift @_; $day[$num]; }
@month = qw(diz pod bod rod sip wax lin sen kun fiz nap dep);2.10.2. Exercise 2 [10 min]
Make a program that uses your library and the following code to print out a message, such as Today is dip, sen 11, 2008, meaning that today is a Monday in August. (Hint: The year and month numbers returned by localtime may not be what you'd expect, so you need to check the documentation.)
my($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime;
|  | |
| 2.9. Packages and Lexicals |  | 3. Introduction to References |
Copyright © 2003 O'Reilly & Associates. All rights reserved.