Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
tools	[ DIR ]	drwxr-xr-x
EXAMPLES.txt.gz	7.24 KB	-rw-r--r--
TOOLS.txt.gz	1.98 KB	-rw-r--r--
age_in_days_eu.pl.gz	1.42 KB	-rw-r--r--
age_in_days_us.pl.gz	1.42 KB	-rw-r--r--
anniversaries.pl	2.26 KB	-rwxr-xr-x
bug.pl	764 B	-rwxr-xr-x
cal.c	2.71 KB	-rw-r--r--
calendar.pl.gz	5.65 KB	-rw-r--r--
datecalc.pl.gz	2.03 KB	-rw-r--r--
delta.pl	2.54 KB	-rwxr-xr-x
holidays.pl	1.98 KB	-rwxr-xr-x
income.pl	2.86 KB	-rwxr-xr-x
linearcal.pl	1.94 KB	-rwxr-xr-x
nth_weekday.pl	2.24 KB	-rwxr-xr-x
time.pl	1.28 KB	-rwxr-xr-x
vacation.pl	1016 B	-rwxr-xr-x
weiberfastnacht.pl	1.28 KB	-rwxr-xr-x

Code Editor : anniversaries.pl

#!/usr/bin/perl -w

###############################################################################
##                                                                           ##
##    Copyright (c) 2001 - 2009 by Steffen Beyer.                            ##
##    All rights reserved.                                                   ##
##                                                                           ##
##    This program is free software; you can redistribute it                 ##
##    and/or modify it under the same terms as Perl itself.                  ##
##                                                                           ##
###############################################################################

BEGIN { eval { require bytes; }; }
use strict;
no strict "vars";

use Date::Pcalc qw(:all);
use Date::Pcalendar;

# How many days in advance:

$Days = 90; # = roughly 3 months

$Anniversaries =
{
    "Spouse 1971"             =>  "30.12.",
    "Wedding Day 1992"        =>  "01.09.",
    "Valentine's Day"         =>  "14.02.",
    "Son Richard 1996"        =>  "11.05.",
    "Daughter Irene 1994"     =>  "17.01.",
    "Mom 1939"                =>  "19.08.",
    "Dad 1937"                =>  "23.04.",
    "Brother Timothy 1969"    =>  "24.04.",
    "Sister Catherine 1973"   =>  "21.10.",
    "Cousin Paul 1970"        =>  "16.10.",
    "Aunt Marjorie 1944"      =>  "09.06.",
    "Uncle George 1941"       =>  "02.08.",
    "Friend Alexander 1968"   =>  "12.06.",
};

$calendar = Date::Pcalendar->new( $Anniversaries );

@date = Today();

for ( $delta = 0; $delta <= $Days; $delta++ )
{
    if ($calendar->is_full(@date) and
        ((@labels = $calendar->labels(@date)) > 1))
    {
        $dow = shift(@labels);
        foreach $name (sort @labels)
        {
            $age = '';
            if ($name =~ s!\s*(\d+)\s*$!!)
            {
                $age = $date[0] - $1;
            }
            printf
            (
                "%+5d days :  %3.3s %2d-%3.3s-%d  (%2s)  %s\n",
                $delta,
                $dow,
                $date[2],
                Month_to_Text($date[1]),
                $date[0],
                $age,
                $name
            );
        }
    }
    @date = Add_Delta_Days(@date,1) if ($delta < $Days);
}

__END__

${this.title}

Code Editor : anniversaries.pl