[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