problemas con la hora GMT-5

[charlygarcia]

hola a todos
tengo un programita en perl en un servidor gratuito pero tengo un problemita que no he podido resolver, pero si algun experto me puede enseñar o mostrar como solucionarlo le estaria muy agradecido:

resulta que yo estoy en bogota colombia y la hora GMT es -5 o sea que esta atrazada cinco horas,
en el script tengo que tomar la fecha y hora y tengo el siguiente codigo

Código:

($seg,$min,$hora,$dia,$mes,$ano,$wday,$yday)=localtime(time);
$mes++;
$ano+=1900;   
$fec=$dia."/".$mes."/".$ano;
$hor=$hora.":".$min.":".$seg;

pero desde las 7pm de la tarde me asume como si fuera el otro dia y para mi es claro que toma la hora del servidor y no la hora de bogota (gmt-5) que es la hora que realmente necesito.

si alguien usa el script a las 8pm bogota o en colombia en general , la fecha que guarda es la del dia siguiente y la hora seria 1am.

Creo que me entendieron y les agradeceria mucho cualquier tipo de colaboracion para guardar en mi archivo LOG la hora pero BOGOTA

muchisisisimas gracias

[monoswim]

time devuelve la cantidad de segundos desde 01/01/1970, si le restas la cantidad de segundos que son 7 horas te dará el tiempo de tu lugar

my $now = time();

my $colombia = $now - (60 * 60 * 7);

($seg,$min,$hora,$dia,$mes,$ano,$wday,$yday)=local time($colombia);

Probalo y decime si va bien...

Saludos

[charlygarcia]

Monoswim, estoy muy agradecido contigo por que realmente me has ayudado muchas veces, la solucion que me acabas de dar, funciona exactamente como la necesitaba.

Si quieres la puedes ver tu mismo en

http://intranetmz.tripod.com/cgi-bin....cgi?c=1&m=328

Funciona perfecto, ahora debo implementar lo mismo en otras categorias,
muchas gracias nuevamente

Carlos A

[jferrero]

Si el programa se ejecuta en el ordenador donde quieres obtener la hora de Colombia, y localtime() no te la devuelve de forma correcta, es que está mal configurada la zona horaria en ese ordenador.

Con este programa se puede ver si hay o no diferencias:

Código PHP:

  #!/usr/bin/perl -l 
print scalar gmtime(); 
print scalar localtime();  
   

Si sale la misma fecha, es que está mal.