Contador antes del fin del mundo....

Dado que segun se acabara el mundo el 21 de diciembre del 2012, hay que saber cuanto tiempo nos sobra; para eso este contador en perl.

Nota: No es el mejor, pero funciona. Ademas esta el detalle de que en realidad no se cual es la hora exacta de dicho fin, por lo que el programa supone que sera en el segundo 1 del ese dia.

:D
============================================


#!/usr/bin/perl
#####################################
# Contador para el fin del mundo
#
#######################


use Date::Calc qw(Delta_DHMS);
use POSIX qw(strftime);

@W_End = (2012, 12, 21, 00, 00, 01); # 21 Dec 2012, 0:00:01
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;
@Today = ( 1900+$year, 1+$mon, $mday, $hour, $min, $sec);
@diff = Delta_DHMS(@Today, @W_End);
print " $diff[0] days, $diff[1]:$diff[2]:$diff[3] \n";


Aqui esta otra version y creo es mejor:
#!/usr/bin/perl
#####################################
# Contador para el fin del mundo
#
# cortesia de Salvador Ortiz.
#######################
#


use Date::Calc qw(Delta_DHMS Today_and_Now);

printf "Faltan %d dias, %2d:%2d:%2d para el fin del mundo\n",Delta_DHMS(Today_and_Now, 2012, 12, 21, 00, 00, 01);