Data por extenso [Perl]

Data por extenso

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

[ Hits: 5.855 ]

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

Anagrama usando Perl

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Calc.pl

check_mem.pl - Plugin Nagios para checar consumo de RAM

Programa que separa os dígitos de um inteiro

Comentários

Nenhum comentário foi encontrado.