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

• Download dta_port.pl
• Enviar nova versão

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";
}

Conversor de moedas

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Gerando senhas aleatórias

Programa que separa os dígitos de um inteiro

Cálculo de área de uma figura geométrica

Nenhum coment�rio foi encontrado.