use Perl

So I sat down with the training plans I (somewhat) followed preparing for last years Copenhagen Marathon and attempted to layout a plan, but lazyness got me so I wrote a script.

The date for next years Copenhagen Marathon in 24th. of May 2009 (the argument to the script).

Here is the output (the training plan):

And here is the script:

    #!/usr/bin/perl
 
    # $Id$
 
    use strict;
    use warnings;
    use DateTime;
 
    use constant DAYS_IN_WEEK => 7;
    our $VERSION = '0.01';
 
    my @distances
        = qw(20 45 50 65 65 60 50 55 55 55 45 50 50 50 40 45 45 45 35 40 40 40 30 35);
 
    if ( !$ARGV[0] ) {
        die 'Usage: marathon-training.pl <date of marathon ddmmyyyy>';
    }
 
    #parsing argument
    my ( $day, $month, $year ) = $ARGV[0] =~ m{
        (\d{2})  #day (two digits)
        (\d{2}) #month (two digits)
        (\d{4}) #year (four digits)
    }mx;
 
    #DT does it own dying
    my $dt = new DateTime(
        year      => $year,
        month     => $month,
        day       => $day,
        time_zone => 'UTC',
    );
 
    #Using DateTime (machine) to go back the number of weeks scheduled in distances
    #minus one of be of by one week when we get to the marathon, eventhough an
    #extra week of preparation might not hurt
    $dt = $dt->subtract(
        DateTime::Duration->new(
            days => ( DAYS_IN_WEEK * scalar @distances ) - DAYS_IN_WEEK
        )
    );
 
    #Print the plan from the beginning and on...
    my $i = 0;
    while (@distances) {
        printf 'Week: %02d', ++$i;
        print "\tWeek number: " . $dt->week_number();
        $dt = $dt->add( DateTime::Duration->new( days => DAYS_IN_WEEK ) );
        print "\tDistance: " . pop @distances;
        print "\n";
    }
 
    exit 0;

Of course the scripts TODO list would be long, things like localization etc. should be taken into consideration.