Foros del Web - Agenda en perl???

Foros del Web (http://www.forosdelweb.com/)

- Programación General (http://www.forosdelweb.com/f14/)

- - Agenda en perl??? (http://www.forosdelweb.com/f14/agenda-perl-179277/)

monoswim

28/01/2004 16:52

Agenda en perl???

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 :borracho:

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

MonoSwim

kidd	28/01/2004 18:38

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	28/01/2004 20:04

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

La zona horaria es GMT -6. Ahora son las 00:15.