Data por extenso
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 6.132 ]
Imprime a data no formato <Dia da Semana>, <Dia> de <Mes> de <Ano>. Ótimo para websites.
Para iniciantes.
#!/usr/bin/perl ### Autor: Carcarah ### Email: thenazgul@terra.com.br ### NÃO MODIFIQUEM O NOME DO AUTOR print &data(); exit(); sub data { local(@dias,@meses,$seg,$min,$hora,$mdia,$mes,$ano,$sdia,$adia,$dst,$strmes); @dias = ( 'Domingo','Segunda','Terça','Quarta', 'Quinta','Sexta','Sábado' ); @meses = ( 'Janeiro','Fevereiro','Março','Abril', 'Maio','Junho','Julho','Agosto','Setembro', 'Outubro','Novembro','Dezembro' ); ($seg,$min,$hora,$mdia,$mes,$ano,$sdia,$adia,$dst) = localtime(time); $ano += 1900; if ($mdia < 10) {$mdia = "0$mdia";} if ($mes < 10) {$mes = "0$mes";} $strmes = ++$mes; $dta = "$mdia/$strmes/$ano"; $mes_atual = "$strmes/$ano"; if ($hora < 10) {$hora = "0$hora";} if ($min < 10) {$min = "0$min";} if ($seg < 10) {$seg = "0$seg";} $resp = "@dias[$sdia], $mdia de @meses[$mes-1] de $ano"; }
Saiba quanto de energia seu PC gasta aproximadamente por mês
Cálculo de área de uma figura geométrica
Inserindo o nome de aluno e calculando média de suas notas
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Alguém poderia me ajudar a escolher peças pra montar um desktop? (30)
Como fzr Downgrade em um pacote específico (5)
Inspiração para desenhar no Linux (1)
Os empreguim de meu Deus estão cada vez mais tecnológicos (6)