Programación Web y Scripting > Perl
Re: obtener la hora del sistema
yamilita:
me urge saber como obtengo la fecha del sistema en una variable para luego guardala en una bd para guardar la fecha de algun evento...
espero me ayuden por favor...
me urge
Avalon:
Utiliza la función localtime
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
Los valores obtenidos son, por este orden:
- segundos
- minutos
- horas
- dia del mes
- mes (retorna un valor del 0 al 11)
- año (retorna los años transcurridos desde 1900, de manera que en el año 2002 retorna 102)
- dia de la semana (retorna un valor del 0 al 6, siendo 0 el domingo y 6 el sábado)
- dia del año (retorna un valor entre 1 y 366)
- Daylight Saving Time (retorna 0 o 1, dependiendo del momento del año en que nos encontremos)
Espero que te sirva.
Salu2,
Avalon
yamilita:
si me sirve de muuuucho, lo unico es q a la hora q yo necesito meterlo a la bd, pues, es un solo campo el de fecha, entonces, estas variables q me dices estan separadas...
como las junto? las concateno o que?
es q no se:(
si me pudieran ayudar please...
saludos
Avalon:
Dependerá del formato del campo fecha que tengas en la BD. Si por ejemplo tiene el formato dd/mm/aaaa (dia/mes/año) pués tendrías que hacer algo como:
--- Código: Text --- ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon++;$year += 1900; if ($mday < 10) { $mday = "0" . $mday;}if ($mon < 10) { $mon = "0" . $mon;} $fecha = $mday . "/" . $mon . "/" . $year;
Salu2,
Avalon
explorer:
Con el sprintf, que es como si pintaras, pero en vez de pantalla, a una variable:
--- Código: Text ---my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon++;$year += 1900; my $fecha = sprintf "%04d/%02d/%02d %02d:%02d", $year, $mon, $mday, $hour, $min; Aunque siempre es mejor usar el módulo DateTime...
--- Código: Text ---> perl -le 'use DateTime; print DateTime->now->ymd("/")'2006/07/09
Navegación
[#] Página Siguiente
Ir a la versión completa