Buenas.
¿Existe alguna función ya creada que me dé como resultado la fecha del día anterior y sin utilizar módulos?
Gracias.
-
- Publicidad
Fecha del día anterior
4 mensajes
• Página 1 de 1
Fecha del día anterior
por Wert » 2006-04-24 02:41 @153
- Wert
- Perlero nuevo
- Mensajes: 6
- Registrado: 2006-03-22 04:30 @229
Publicidad
por explorer » 2006-04-24 05:14 @259
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.
Ver localtime.
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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por kidd » 2006-04-24 08:17 @387
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:
En este caso usa el módulo POSIX que viene con la distribución de Perl.
Saludos
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
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por Wert » 2006-04-24 11:36 @525
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.
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.
- Wert
- Perlero nuevo
- Mensajes: 6
- Registrado: 2006-03-22 04:30 @229
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados