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

Cálculo de área de uma figura geométrica

Fatorial

Conversor de moedas

Crivo de Eratóstenes Simples em Perl

Separa os dígitos de um número

Nenhum comentário foi encontrado.