Data por extenso
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 6.217 ]
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"; }
Programa que separa os dígitos de um inteiro
Cálculo de área de uma figura geométrica
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Dica para encontrar diversos jogos Indies criativos
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Dificuldade com Ocs 2.12.3 no Debian 13 com Apache2 - Can't load ... (4)
paginação dos favoritos não funciona no vivaolinux[BU... (4)