Ola Pessoal..<br>Estou usando para subtrair data com:<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $hora4 = strftime('%H', gmtime(time - 60 * 60));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $mes4&nbsp; = strftime('%m', gmtime(time - 60 * 60));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $dia4&nbsp; = strftime('%d', gmtime(time - 60 * 60));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $ano4 = strftime('%Y', gmtime(time - 60 * 60));<br><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $hora5 = strftime('%H', gmtime(time - 60 ));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $mes5&nbsp; = strftime('%m', gmtime(time -
 60));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $dia5&nbsp; = strftime('%d', gmtime(time - 60));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $ano5 = strftime('%Y', gmtime(time - 60 ));<br><br>so que eu preciso subtrair uma data que eu forneça..ex:<br>yyyymmdd&nbsp;&nbsp; e hora separado<br>quero retornar as 3 e as 6 horas anteriores...<br>tentei fazer:<br><br>&nbsp;my ($year, $month, $day) = ($aaaammdd =~ /^(\d{4})(\d{2})(\d{2})$/);<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $mes3&nbsp; = strftime('%m', gmtime($mouth - 60 * 120));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $dia3&nbsp; = strftime('%d', gmtime($day - 60 * 120));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $ano3 = strftime('%Y', gmtime($year - 60 * 120));<br><br>mas nao
 funcionou...<br><br>Alguem ja fez algo parecido e possa me ajudar??<br><br>Obrigada<br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/