[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