Data por extenso [Perl]

Data por extenso

Publicado por Carcarah do Sertão Agreste 07/07/2004

[ Hits: 6.017 ]

Download dta_port.pl

0 0

Denuncie Favoritos Indicar

Imprime a data no formato <Dia da Semana>, <Dia> de <Mes> de <Ano>. Ótimo para websites.
Para iniciantes.

Esconder código-fonte

#!/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";
}

Scripts recomendados

Saiba quanto de energia seu PC gasta aproximadamente por mês

Separa os dígitos de um número

Assistente de instalação por apt!

Cálculo do MDC em Perl

Queimando CDs on-the-fly

Comentários

Nenhum comentário foi encontrado.