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

my %env;
add_ausfuehrungsrhythmen (\%env);

foreach my $datum (
    '29.02.2008',       # Test Schaltjahr
    '01.01.2010',       # Extremwert
    '31.01.2010',       # wg. Februar
    '31.12.2010',       # Extremwert
) {
    print "\nDatum '$datum':\n";
    foreach my $rhythmus (
        sort {$env{ausfuehrungsrhythmus}{$a}{reihe} <=> $env{ausfuehrungsrhythmus}{$b}{reihe}}
        keys %{$env{ausfuehrungsrhythmus}}
    ) {
        print "Berechne '" . $env{ausfuehrungsrhythmus}{$rhythmus}{anzeige} . "' => " . $env{ausfuehrungsrhythmus}{$rhythmus}{berechnung} -> ($datum) . "\n"
    }
}

sub add_ausfuehrungsrhythmen {
    #
    # Fügt dem laufenden Hash %env alle Ausführungsrhythmen hinzu
    #
    # Aufruf:
    # =======
    # add_ausfuehrungsrhythmen (\%env);
    #
    # - Zweite Dimension ist das dreistellige Kürzel für den Rhythmus
    # - Reihenfolge der Definition bestimmt die Anzeige für den User
    #
    my ($env) = @_;
    use Date::Calc qw (
        check_date
    );

    $env -> {ausfuehrungsrhythmus}{mtl} = {
        anzeige     => 'Monatlich',
        reihe       => (keys %{$env{ausfuehrungsrhythmus}}) + 1,
        berechnung  =>
            sub {
                my @wert = reverse (split /\./,shift);
                $wert[1] ++;                                                                                    # garantiert jeden Monat treffen, Add_Delta_YMD würde beim 31.01. den Februar überspringen
                if ($wert[1] > 12) {                                                                            # Monatsüberlauf
                    $wert[1] = 1;
                    $wert[0] ++;
                }
                $wert[2] -- while !check_date (@wert);                                                          # Tag korrigieren, falls Monat kürzer als vorheriger
                return sprintf ('%02u.%02u.%04u', reverse @wert);
            },
    };

    $env -> {ausfuehrungsrhythmus}{qua} = {
        anzeige     => 'Quartalsweise',
        reihe       => (keys %{$env{ausfuehrungsrhythmus}}) + 1,
        berechnung  =>
            sub {
                my @wert = reverse (split /\./,shift);
                $wert[1] += 3;
                if ($wert[1] > 12) {
                    $wert[1] = $wert[1] - 12;
                    $wert[0] ++;
                }
                $wert[2] -- while !check_date (@wert);                                                          # Tag korrigieren, falls Monat kürzer als vorheriger (z.B. bei Schaltjahr 29.02.2008)
                return sprintf ('%02u.%02u.%04u', reverse @wert);
            },
    };

    $env -> {ausfuehrungsrhythmus}{jhr} = {
        anzeige     => 'Jährlich',
        reihe       => (keys %{$env{ausfuehrungsrhythmus}}) + 1,
        berechnung  =>
            sub {
                my @wert = reverse (split /\./,shift);
                $wert[0] ++;
                $wert[2] -- while !check_date (@wert);                                                          # Tag korrigieren, falls Monat kürzer als vorheriger (z.B. bei Schaltjahr 29.02.2008)
                return sprintf ('%02u.%02u.%04u', reverse @wert);
            },
    };
}