Foro - Perl en Español

Buenas.

¿Existe alguna función ya creada que me dé como resultado la fecha del día anterior y sin utilizar módulos?

Gracias.

No. Hay que calcularla.
Tienes que pasar la fecha actual a segundos desde el epoch, restar los segundos que tiene un día y pasar esos segundos a fecha actual.

Código: Seleccionar todo

perl -le '$segundos = time - 24*60*60; print join(":",localtime($segundos))'

Ver localtime.

Hola:

No entiendo muy bien a qué te refieres sin módulos, pues realmente siempre terminas usando módulos de Perl, ahora, si te preocupa usar módulos que no vengan con todas la distribuciones de Perl, entonces puedes usar la solución de explorer, o también la siguiente:

Código: Seleccionar todo

use strict;
use POSIX qw[strftime];

my $yesterday = strftime('%d-%m-%Y', localtime(time - 60 * 60 * 24));

print "Ayer: $yesterday\n";

En este caso usa el módulo POSIX que viene con la distribución de Perl.

Saludos

Buenas.

Restando los segundos a la fecha funciona perfectamente.

No puedo utilizar módudos porque en las máquinas que ejecuto el script sólo tengo el fichero perl.exe de la versión 5.004_02 y no tengo posiblidad de introducir más ficheros.

Gracias por la ayuda.