Data por extenso
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 6.287 ]
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";
}
Usando comandos shell com Perl
Programa que separa os dígitos de um inteiro
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)
Instalação não está resolvendo as dependencias (2)
Captação de áudio no zorin linux começa a diminuir com o tempo (5)
Alternativas ao Multilogin para gerenciamento de múltiplas contas/prof... (0)









