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

Queimando CDs on-the-fly

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

Crivo de Eratóstenes Simples em Perl

check_mem.pl - Plugin Nagios para checar consumo de RAM

Cálculo do MDC em Perl

Nenhum coment�rio foi encontrado.