localtime.pl [Perl]

localtime.pl

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

[ Hits: 7.256 ]

Homepage: https://www.instagram.com/alexabolada/

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

Gerando senhas aleatórias

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

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

Soma varios valores e mostra sua media

Data por extenso

Comentários

Nenhum comentário foi encontrado.