Foro - Perl en Español

por **newperlero** » 2011-09-23 02:02 @126

Hola,
Tengo una fecha en este formato:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

20110818130234.0ZColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Hay alguna forma para convertirla a formato unix? ( Nº de segungos desde 1970 )

#!/usr/bin/perl
use Modern::Perl;       # Somos modernos
use DateTime::Format::ISO8601;
 
my $str = '20110818130234.0Z';
 
# Ajustamos a formato ISO 8601
substr($str, 8, 0) = 'T';
 
say "[$str]";           # [20110818T130234.0Z]
 
my $dt = DateTime::Format::ISO8601->parse_datetime( $str );
 
say $dt->epoch;         # 1313672554
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **newperlero** » 2011-09-23 09:14 @426

La fecha en ese formato proviene de diferentes atributos de un directorio activo, como por ejemplo, whenChanged.

¡Muchas gracias!

De todas formas, ojeando por el foro, he descubierto el módulo DateTime, que me puede venir bien para algunas cosas y a lo mejor puedo hacer más sencillo el proceso que estoy realizando.

Saludos.

por **explorer** » 2011-09-23 09:24 @433

Si te refieres al ActiveDirectory de Micro$oft, hay un módulo en CPAN llamado DateTime::Format::Epoch::ActiveDirectory que permite obtener el número de segundos desde el epoch.

Foro - Perl en Español

Convertir fecha a formato unix

Convertir fecha a formato unix

Publicidad

Re: Convertir fecha a formato unix

Re: Convertir fecha a formato unix

Re: Convertir fecha a formato unix

¿Quién está conectado?