[Perl] Convertir fecha a timestramp RESUELTO
Rafael Marques Parra
rafa84aven en todito.com
Vie Dic 9 09:55:06 CST 2005
Pues esto es lo que hice y me funciono excelentemente, saludos y gracias por la ayuda !!!!!.
use Time::Local;
my $date1 = "2005-12-05";
my $date2 = "2005-09-20";
my ( $year1,$month1,$day1 ) = split( /-/, $date1 );
my ( $year2,$month2,$day2 ) = split( /-/, $date2 );
my $first_date = timelocal( "00","00","00",$day1,$month1 - 1,$year1 );
my $second_date = timelocal( "00","00","00",$day2,$month2 - 1,$year2 );
my $s = $first_date - $second_date;
my $dif = int( $s / 86400 );
$dif -= '1';
my @i = ( 1 .. $dif );
Y asi pude obtener la diferencia entre dias de las dos fechas.
Saludos !!!!_________________________________________________________________________
¡Encuentra trabajo ya! Tenemos miles de vacantes.
www.trabajahoy.com
Más información sobre la lista de distribución Perl