localtime.pl

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

[ Hits: 7.341 ]

Homepage: https://mestrefabio.com

Download localtime.zip




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

Calculadora

Escrevendo varias linhas em um arquivo qualquer

Lendo o conteúdo de uma página da Internet

Obtendo horas do sistema

Assistente de instalação por apt!


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts