Script para obtener fecha

[Raul21]

Buenos días;


Llevo muy poco tiempo programando y pongo aquí mi problema a ver si alguien puede echarme una mano.

Mi objetivo es obtener de un directorio por ejemplo /var/tmp/Raul la fecha y hora del último fichero modificado, es decir si dentro del directorio hay 100 ficheros, quiero obtener la fecha y hora de modificación del último fichero que ha sido modificado.

No sé si será más fácil hacerlo en ksh o perl.

Agradecería vuestra ayuda.

Muchas gracias.

Un saludo

[abcdefghi]

Mucho más fácil en ksh, pero ahí va:

Código Perl:

if (opendir(my $handle, '.')){
     my @last = (0,'');
     while ($file = readdir($handle)) {
         $_ = (stat($file))[9];
         if ($_ > $last[0]) {
              @last = ($_,$file);
         }
     }
     print "${last[1]} modificado: ".scalar localtime($last[0]);
     closedir $handle;
}
 

[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.

[jferrero]

Hummm... después de ver con calma tu código y el mío... creo que el que tiene que borrar el mensaje soy yo: no aporta nada más que confusión. Los perl one line son solo para casos extremos.

Lo siento.

[abcdefghi]

Por el contrario, no conozco un sólo topic de Perl en que los particiantes no exponga soluciones una más sintetizada que la otra, en las respuesta lo que se transmite es el conocimiento y el ingenio, el que inició el post eligirá la más conveniente.

De todas maneras fué mi error porque es un post viejo, seguramente el muchacho lo debe de haber solucionado.

Saludos.