Script para obtener fecha

[abcdefghi]

Iniciado por jferrero

Sí, es cierto lo que dice abcdefghi, con ksh es más fácil, pero no mucho más que con Perl.

Otra forma de hacerlo:

Código Perl:

perl -le 'print scalar localtime +(stat((sort{-M$a<=>-M$b}<*>)[0]))[9]'
 

Primero, sacamos el listado de ficheros del directorio actual, con <*>.
Para cada uno de ellos, los ordenamos (sort), numéricamente (<=>) según su fecha de modificación (-M).
Nos quedamos con el primero de todos ([0]), porque será el fichero con la última modificación.
De él, obtenemos su estado (stat), del que nos quedamos con su décimo parámetro ([9]) que es la fecha de modificación.
Esa fecha, que está en formato epoch, la pasamos a localtime() para saber la fecha en formato humano.
Si localtime() lo ejecutamos en contexto escalar (scalar), pues entonces nos devuelve una cadena de texto con la fecha y hora de forma más presentable. Por ejemplo:

Wed Apr 7 19:10:33 2010

Estas son otras (su funcionamiento se deja como ejercicio para el lector):

Código Perl:

perl -le '$_=(qx(ls -1rt))[-1]; chomp; print scalar localtime((stat)[9])'
 

Código Perl:

perl -le '$_=join" ",(split" ",(qx(ls --full-time -rt))[-1])[5,6];print'
 

Nnnnnnnnnnoooooooooooooooooooooooooo me dejaste como un newbie, veo lo mio y lo tuyo y me da ganas de eliminar el post completo, vale la escusa de que hace mucho que no toco Perl y se me olvido la regla no escrita número 1, siempre escribe el código más corto/ofuscado, pero extrañamente claro posible, sino otro te avergonzara totalmente.

Bueno andá avisandole a Kidd que levante la olvidada sección de Perl golf que prometo dar batalla.

Esto no quedará así!!

Saludos.