Agenda en perl???

[monoswim]

Hola gente forera!!!! estoy haciendo una página en perl y le quiero poner una agenda...pero se me complicó bastante la cosa, sobretodo con la vista mensual, por ejemplo, hoy es miercoles 28 de enero, como se que día fué el 1 de enero y que todos los días se vallan calculando así.

Tengo una forma de hacerlo pero me parece muy manual, seguramente hay otra mejor manera que no se me ocurre

Si alguien tiene una idea o sabe de algun script para bajar y ver el código fuente, desde ya muchas gracias

MonoSwim

[kidd]

Hola monoswim:

Intena con este código:

Código:

#!/usr/bin/perl -w 

use strict; 
use CGI::Carp qw(fatalsToBrowser); 
use Time::Local; 

#Fecha de la cual deseas sacar el día 
my ($anio, $mes, $dia) = qw(2002 01 28); 

my $gmtime = timegm(0,0,0,$dia,$mes-1,$anio-1900); 
my @gmtime = gmtime($gmtime); #regresarlo 

my @dias_semana = ('Domingo','Lunes','Martes','Miércoles','Jueves', 
                     'Viernes','Sábado','Domingo'); 


my $dia = $dias_semana[$gmtime[6]]; #Tomar el día 

#Resultado 
print "El día de la semana es $dia\n";

SALUDOS

[kidd]

Hola todos:

El post de monoswim me hizo pensar en como se podria crear un calendario completo del año, me puse a trabajar un rato y finalmente llegue con la solucion.

El codigo completo para hacer calendarios en HTML del año que quieran lo pueden encontrar en la siguiente liga, en un post que puse en mi foro:

http://perlenespanol.baboonsoftware....ic.php?p=80#80

SALUDOS