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 : linearcal.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;

use Date::Pcalendar::Profiles qw( $Profiles );
use Date::Pcalendar;
use Date::Pcalc::Object qw(:ALL);

sub print_linear_calendar
{
    my(@start) = shift_date(\@_);
    my(@stop)  = shift_date(\@_);
    my($lang)  = shift;
    my($prof)  = shift;
    my($newl)  = Decode_Language($lang);
    my($cal,$start,$stop,$oldl,$oldf,@labels,$dow,$day);

die "No such language '$lang'" unless ($newl);

die "No such calendar profile '$prof'"
        unless (exists $Profiles->{$prof});

$cal   = Date::Pcalendar->new( $Profiles->{$prof} );
    $start = Date::Pcalc->new(@start);
    $stop  = Date::Pcalc->new(@stop);

$oldl = Language($newl);
    $oldf = Date::Pcalc->date_format(1);

while ($start <= $stop)
    {
        @labels = $cal->labels($start);
        $dow = substr(shift(@labels),0,3);
        $day = $cal->is_full($start) ? "+" : $cal->is_half($start) ? "#" : "-";
        print "$dow $start $day ", join(", ", @labels), "\n";
        $start++;
    }

Language($oldl);
    Date::Pcalc->date_format($oldf);
}

unless (@ARGV == 8)
{
    die "Usage: perl linearcal.pl YEAR1 MONTH1 DAY1 YEAR2 MONTH2 DAY2 LANGUAGE PROFILE\n";
}

print_linear_calendar( @ARGV );

__END__

${this.title}

Code Editor : linearcal.pl