localtime.pl
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 7.258 ]
Homepage: https://www.instagram.com/alexabolada/
Mostra o funcionamento da função localtime(), usada para capturar a data e hora do sistema ou calcular diferenças entre datas.
#!/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
Separa os dígitos de um número
imprime numeros de forma crescente e decrescente [FOR]
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Problemas para conectar à rede no Linux Mint (10)
Clamav e suas atualizações (15)
Desenvolvimento de um driver (10)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba