Ola Pessoal..<br>Estou usando para subtrair data com:<br><br> my $hora4 = strftime('%H', gmtime(time - 60 * 60));<br> my $mes4 = strftime('%m', gmtime(time - 60 * 60));<br> my $dia4 = strftime('%d', gmtime(time - 60 * 60));<br> my $ano4 = strftime('%Y', gmtime(time - 60 * 60));<br><br><br> my $hora5 = strftime('%H', gmtime(time - 60 ));<br> my $mes5 = strftime('%m', gmtime(time -
60));<br> my $dia5 = strftime('%d', gmtime(time - 60));<br> my $ano5 = strftime('%Y', gmtime(time - 60 ));<br><br>so que eu preciso subtrair uma data que eu forneça..ex:<br>yyyymmdd e hora separado<br>quero retornar as 3 e as 6 horas anteriores...<br>tentei fazer:<br><br> my ($year, $month, $day) = ($aaaammdd =~ /^(\d{4})(\d{2})(\d{2})$/);<br> <br> my $mes3 = strftime('%m', gmtime($mouth - 60 * 120));<br> my $dia3 = strftime('%d', gmtime($day - 60 * 120));<br> 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> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/