numero de dias que faltan como lo hago ?

[caliche]

hola a todos
una ayudita por favor con el codigo
yo necesito un programa EN PERL que tome una fecha en el futuro (definida internamente en el programa) y tome la fecha de hoy (en la que se ejecuta el programa) y me muestre cuantos dias hay entre estas dos fechas

Me dicen que es usando timestamp, quien me puede colaborar como se haria o si ya esta hecho donde lo encuentro ?

Gracias por su ayuda

[monoswim]

hay varias formas de hacerlo, y ya fué bastante hablado en otro foro, te paso es post...

http://perlenespanol.baboonsoftware....ghlight=fechas

Saludos

[jferrero]

Puedes pasar las fechas a tiempo epoch, hacer la resta, y el resultado (que estará en segundos), lo pasas fácilmente a días.

[caliche]

Gracias JFERRERO

#Puedes pasar las fechas a tiempo epoch, hacer la resta, y el resultado (que #estará en segundos), lo pasas fácilmente a días.

yo no he trabajado nunca con epoch, me podrias ilustrar o dar una ayudita ?

o dar una direccion donde mirar acerca, ojala con ejemplos

gracias

Caliche

[monoswim]

hacé esto,

my $segundos = time();

Eso te da la cantidad de segundos desde una fecha estandard, creo que es el 01/01/70...

Para saber que fecha es puedes hacer

my ($sec,$min,$hora,$mday,$mon,$ano,$wdia,$ydia,$isds t,@fecha) = localtime (time);

teniendo una fecha puedes ir a los segundos de epoch con el modulo time::local

y así restarlos y sacar los días...

Espero que te sirva

saludos

[jferrero]

Esta es una forma de hacerlo...

Código:

#!/usr/bin/perl

use Time::Local;

# Fecha final
$fecha = '2007/12/31';          # Formato aaaa/mm/dd

# Extraemos la información de la $fecha
($ano,$mes,$dia) = $fecha =~ /(\d+)/g;  # Buscamos grupos de dígitos

# Pasamos la fecha a segundos desde epoch
$futuro = timelocal(0,0,0,$dia,$mes-1,$ano-1900);

# Diferencia de tiempo con respecto a ahora
$diferencia = ( $futuro - time() ) / 86_400;
print "Diferencia en días: $diferencia\n";