Data por extenso
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 6.182 ]
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"; }
Separa os dígitos de um número
Escrevendo varias linhas em um arquivo qualquer
Cálculo de área de uma figura geométrica
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
O que você está ouvindo agora? [2] (183)
Gestão de Ambiente em uma rede Linux (2)
Ajuda Pra Melhoria do NFTABLES. (7)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (4)