[Perl] Duda sobre eficiencia....

Espartano espartano.mail en gmail.com
Mar Dic 8 15:45:19 CST 2009


2009/12/8 Carmen Marcela Alegria C. <alegria071 en yahoo.com.mx>:
> 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";
>
>

Veo que hoy tampoco tienes mucho trabajo marce :p, con respecto a la
duda no estoy seguro pero me parece que seria mas eficiente tener
varias variables que llamadas a función, porque las llamadas a función
según yo hacen saltos a memoria que son mas costosos que reservar
espacio para las variables, pero la verdad que no estoy seguro ......
hace tiempo que no leo nada de compiladores e interpretes ......


PD: esta viva la lista ?

-- 
Atte: Ing. Jorge Sánchez Escobedo.
Movil (5541837472)
Sent from Madrid, Spain


Más información sobre la lista de distribución Perl