localtime.pl [Perl]

localtime.pl

Publicado por Fábio Berbert de Paula 13/11/2002

[ Hits: 7.672 ]

Homepage: https://fabio.automatizando.dev

Download localtime.zip

0 0

Denuncie Favoritos Indicar

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

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

Scripts recomendados

Potenciação

Cálculo do MDC em Perl

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

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Cadastro usando arquivos .txt para guardar dados

Comentários

Nenhum comentário foi encontrado.