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 : nth_weekday.pl

#!/usr/bin/perl -w

###############################################################################
##                                                                           ##
##    Copyright (c) 1998 - 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";

$self = $0;
$self =~  s!^.*/!!;

use Date::Pcalc qw( Decode_Day_of_Week Decode_Month Day_of_Week English_Ordinal
                    Month_to_Text Day_of_Week_to_Text Nth_Weekday_of_Month_Year );

if (@ARGV != 4)
{
    die "Usage:  perl  $self  <nth>  <weekday>  <month>  <year>\n";
}

$n = $ARGV[0];
if ($n =~ /^(?:[1-5]|1st|2nd|3rd|4th|5th)$/) { $n = substr($n,0,1); }
else
{
    die "$self: \"nth\" must be 1..5 or \"1st\", \"2nd\", \"3rd\", \"4th\" or \"5th\"!\n";
}

$dow = $ARGV[1];
unless ($dow =~ /^\d+$/) { $dow = Decode_Day_of_Week($dow); }
if (($dow < 1) || ($dow > 7))
{
    die "$self: \"weekday\" must be 1..7 or name of day of week in English!\n";
}

$mm = $ARGV[2];
unless ($mm =~ /^\d+$/) { $mm = Decode_Month($mm); }
if (($mm < 1) || ($mm > 12))
{
    die "$self: \"month\" must be 1..12 or name of month in English!\n";
}

$year = $ARGV[3];
if (($year !~ /^\d+$/) || ($year < 1))
{
    die "$self: \"year\" must be numeric and > 0!\n";
}

eval { ($y,$m,$d) = Nth_Weekday_of_Month_Year($year,$mm,$dow,$n); };

if ($@)
{
    if ($@ =~ /^(.+?)\s*at\s/) { die "$1!\n"; }
    else                       { die $@; }
}

printf("\nThe %s %s in %s %d ",
    English_Ordinal($n),
    Day_of_Week_to_Text($dow),
    Month_to_Text($mm),
    $year);

if (defined $y)
{
    printf("is %s, %s %s %d.\n\n",
        Day_of_Week_to_Text(Day_of_Week($y,$m,$d)),
        Month_to_Text($m),
        English_Ordinal($d),
        $y);
}
else
{
    print "does not exist!\n\n";
}

__END__

${this.title}

Code Editor : nth_weekday.pl