Learning Perl Objects, References amp;amp; Modules [Electronic resources] نسخه متنی

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;