Data por extenso

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

[ Hits: 6.115 ]

Download dta_port.pl




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

triangulo

Calcula equação de segundo grau completa

Programa que separa os dígitos de um inteiro

check_mem.pl - Plugin Nagios para checar consumo de RAM

Cálculo do MDC em Perl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts