Mostra o funcionamento da função localtime(), usada para capturar a data e hora do sistema ou calcular diferenças entre datas.

• Download localtime.zip
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
#####################################
# localtime.pl
#
# Por Fábio Berbert de Paula
# E-mail: fabio@vivaolinux.com.br
# Estou em: www.vivaolinux.com.br
#
# Rio de Janeiro, 14 de Agosto de 2002
#####################################

my ($dia,$mes,$ano) = (localtime(time))[3,4,5];
$mes++;
$ano += 1900;
print "Hoje é dia " . sprintf("%02d",$dia) . '/' . 
      sprintf("%02d",$mes) . '/' . $ano . "\n";

# um dia tem 86400 segundos = 60 segundos x 60 minutos x 24 horas
# se quero saber que dia era a 100 dias atrás ...
my $cemdias = 60*60*24*100;
my ($dia,$mes,$ano) = (localtime(time - $cemdias))[3,4,5];
$mes++;
$ano += 1900;
print "A 100 dias atrás estávamos em " . sprintf("%02d",$dia) 
      . '/' . sprintf("%02d",$mes) . '/' . $ano . "\n";

# localtime() retorna um array com os seguintes elementos:
# 0 - segundo
# 1 - minuto
# 2 - hora
# 3 - dia
# 4 - mês
# 5 - ano
# 6 - dia da semana
# 7 - dia do ano
# 8 - isdst
#
# Nota: 
#
# mes precisa ser adicionado de + 1, pois é um array de 0 à 11
# ano precisa ser adicionado de 1900, por causa do bug do milênio

Lista de números aleatórios não-repetidos de um intervalo em Perl

Programa que separa os dígitos de um inteiro

Saiba quanto de energia seu PC gasta aproximadamente por mês

Calcula equação de segundo grau completa

Anagrama usando Perl

Nenhum comentário foi encontrado.