[Perl] Duda sobre eficiencia....

[Carmen Marcela Alegria C.]

Hola lista!!

 Tenia en mente hacer un script simple para hacer un contador regresivo, dicho contador hace la diferencia entre una fecha "la del fin del mundo" y el dia de hoy.

 Tengo estas opciones, cual es mas optima? en otras palabras que es mejor llamar varias veces a una funcion o usar mas variables?  Es mas, seguramente hay mejores formas de hacer esto, alguna sugerencias?

 O alguna documentacion que me recomienden sobre tips para hacer mejores scripts?

 De antemano gracias!

Saludos,

Marcela Alegria



#!/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 "Faltan $diff[0] dias, $diff[1]:$diff[2]:$diff[3] antes del fin del mundo\n";


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


 use Date::Calc qw(Delta_DHMS);
 use Time::localtime;
 
 @W_End = (2012, 12, 21, 00, 00, 01);   # 21 Dec 2012, 0:00:01
 @Today = (  localtime->year() + 1900, localtime->mon() + 1, localtime->mday(), localtime->hour(), localtime->min(), localtime->sec() );
 @diff = Delta_DHMS(@Today, @W_End);
 print "Faltan $diff[0] dias, $diff[1]:$diff[2]:$diff[3] antes del fin del mundo\n";





      Encuentra las mejores recetas en Yahoo! Cocina.                       
http://mx.mujer.yahoo.com/cocina/