Greetings, Monks:

I need to generate a two-dimensional array of days in a given month for a calendar application that I'm writing for work. The code that follows below seems to work, but I am sure there are better/more efficient ways to do it, and was hoping that some of ye enlightened ones could show me the way.. I am parsing the result of Date::Calc module's Calendar function, which looks something like this:

        August 2002
Mon Tue Wed Thu Fri Sat Sun
              1   2   3   4
  5   6   7   8   9  10  11
 12  13  14  15  16  17  18
 19  20  21  22  23  24  25
 26  27  28  29  30  31
[download]

and I thought that there has to be an easier way to cram that into a two-D array than the following code:

#!/usr/bin/perl -w
use strict;

use Date::Calc qw(Calendar);

sub parseCalendar {
    my ($year, $month) = ( scalar(@_) == 2 ) 
        ? @_ 
        : split(' ', `date +"%Y %m"`);
    my $cal = Calendar($year, $month);    
    my @cal = split(/\n/, $cal);
    splice(@cal, 0, 3); # get rid of the first three lines (don't need
+ em);
    my @rv = map {
        $_ = substr($_, 1, length);
        [split /\s{4}|\s{2}/];
    } @cal;
    return @rv;
}

my @cal = parseCalendar();
my $i = 1;
foreach my $cal_line (@cal) {
    print "Week ", $i++, ":";
    foreach my $day (@$cal_line) {
        $day ||= "  ";
        print "$day  ";
    }
    print "\n";
}
[download]

Many thanks!
Allen