12/12 from seed - The beginnings of spek's perpetual grow

#!/usr/bin/perl

use warnings;
use strict;
use 5.12.0;

use DateTime;
use Getopt::Long;

# get command line options

my $date;
my $harvests = 3;

GetOptions(
            'harvests|h=i'  => \$harvests,
            'start|s=s'     => \$date,      # yyyy/mm/dd
    );

my $start;

if ( $date ){

    my ( $start_year, $start_month, $start_day ) = split( '/', $date );
    $start = DateTime->new(
                            year    => $start_year,
                            month   => $start_month,
                            day     => $start_day,
                        );
}
else {

    $start = DateTime->now();
}

# get the grow off the ground
# starting with the initial planting schedule

my $progress = $start->clone();

say "\nspek's 3 week harvest perpetual grow schedule plotter\n";

# 1st batch

say $progress->ymd . ": Cut clones";
$progress->add( weeks => 2, days => 2 );
say $progress->ymd . ": Put clones into flower";

# 2nd & 3rd batch

for ( 0..1 ){

    $progress->add( days => 5 );
    say $progress->ymd . ": Cut clones";
    $progress->add( days => 2, weeks => 2 );
    say $progress->ymd . ": Put clones into flower";
}

# main loop including harvest

while ( 1 ) {

    # more clones if necessary

    $progress->add( days => 5 );

    if ( $harvests > 3 ) {
        say $progress->ymd . ": Cut clones";
    }

    $progress->add( days => 2 );

    # harvest!

    $progress->add( weeks => 2 );
    say $progress->ymd . ": HARVEST!!";

    # plant clones if necessary 

    if ( $harvests > 3 ){
        say $progress->ymd . ": Put clones into flower";
    }

    $harvests--;
    last if $harvests == 0;
}

say "\n Congratulations, your grow schedule is complete!\n";

# LICENSE: This software is free to use under the same license as Perl itself

# Copyright:  © spek, 2013-11-01

# Thanks to: The great folks over at rollitup.org

#!/usr/bin/perl

use warnings;
use strict;
use 5.12.0;

use DateTime;
use Getopt::Long;

# get command line options

my $date;
my $harvests = 3;
my $root     = 16;

GetOptions(
            'harvests|h=i'  => \$harvests,
            'start|s=s'     => \$date,      # yyyy/mm/dd
            'root|r=i'      => \$root,
    );

my $start;

# die of root propagation is out of range

if ( $root < 14 || $root > 21 ) {
    die "Clone propagation must be between 14 and 21 days\n";
}

if ( $date ){

    my ( $start_year, $start_month, $start_day ) = split( '/', $date );
    $start = DateTime->new(
                            year    => $start_year,
                            month   => $start_month,
                            day     => $start_day,
                        );
}
else {

    $start = DateTime->now();
}

# configure the rooting timeframes

my $days_pre_clone = 21 - $root;
my $days_aft_clone = $root - 14;

# get the grow off the ground
# starting with the initial planting schedule

my $progress = $start->clone();

say "\nspek's 3 week harvest perpetual grow schedule plotter\n";

# 1st batch

say $progress->ymd . ": Cut clones";
$progress->add( weeks => 2, days => $days_aft_clone );
say $progress->ymd . ": Put clones into flower";

# 2nd & 3rd batch

for ( 0..1 ){

    $progress->add( days => $days_pre_clone );
    say $progress->ymd . ": Cut clones";
    $progress->add( days => $days_aft_clone, weeks => 2 );
    say $progress->ymd . ": Put clones into flower";
}

# main loop including harvest

while ( 1 ) {

    # more clones if necessary

    $progress->add( days => $days_pre_clone );

    if ( $harvests > 3 ) {
        say $progress->ymd . ": Cut clones";
    }

    $progress->add( days => $days_aft_clone );

    # harvest!

    $progress->add( weeks => 2 );
    say $progress->ymd . ": HARVEST!!";

    # plant clones if necessary 

    if ( $harvests > 3 ){
        say $progress->ymd . ": Put clones into flower";
    }

    $harvests--;
    last if $harvests == 0;
}

say "\n Congratulations, your grow schedule is complete!\n";

# LICENSE: This software is free to use under the same license as Perl itself

# Copyright:  © spek, 2013-11-01

# Thanks to: The great folks over at rollitup.org