[Cascavel-pm] Subtrair Data

[Patty Silva]

Ola Pessoal..
Estou usando para subtrair data com:

               my $hora4 = strftime('%H', gmtime(time - 60 * 60));
               my $mes4  = strftime('%m', gmtime(time - 60 * 60));
               my $dia4  = strftime('%d', gmtime(time - 60 * 60));
               my $ano4 = strftime('%Y', gmtime(time - 60 * 60));


               my $hora5 = strftime('%H', gmtime(time - 60 ));
               my $mes5  = strftime('%m', gmtime(time - 60));
               my $dia5  = strftime('%d', gmtime(time - 60));
               my $ano5 = strftime('%Y', gmtime(time - 60 ));

so que eu preciso subtrair uma data que eu forneça..ex:
yyyymmdd   e hora separado
quero retornar as 3 e as 6 horas anteriores...
tentei fazer:

 my ($year, $month, $day) = ($aaaammdd =~ /^(\d{4})(\d{2})(\d{2})$/);
           
           my $mes3  = strftime('%m', gmtime($mouth - 60 * 120));
           my $dia3  = strftime('%d', gmtime($day - 60 * 120));
           my $ano3 = strftime('%Y', gmtime($year - 60 * 120));

mas nao funcionou...

Alguem ja fez algo parecido e possa me ajudar??

Obrigada

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070212/02836349/attachment.html