Re: [perl] Sobre manipulacao de datas

Thiago Rondon Sun, 13 Feb 2000 16:09:40 -0800
Ola,

Voc� pode usar um comando do unix, o date.

por exemplo, voc� tem:

#!/usr/bin/perl
$date=`date`;
print "$date\n";

A saida ser�:
dom fev 13 18:47:37 WST 2000

Agora se voc� quizer, por exemplo com dois dias
antes, voc� faz:

#!/usr/bin/perl
$date=`date --date '2 days ago'``;
print "$date\n";

A saida ser�:
sex fev 11 18:48:39 WDT 2000

Agora voc� pode ir manipulando, em vez do parametro
2 days ago, voc� pode colocar 2 days next.

Agora caso queira fazer algo pr�prio, n�o tenho certeza
se na CPAN existe algum modulo para manipula��o de
data, mais voc� pode fazer, algo do tipo:

sub Somar_data()
{
($dia, $mes, $ano) = @_;

@dia_final_30="04,06,09,11";
@dia_final_31="01,03,05,07,08,10,12";
@dia_final_29="02";

foreach $dia_temp (@dia_final_30) { 
if ($dia_final eq $mes) { $dia_final=$dia_tempo;  } }

foreach $dia_temp (@dia_final_31) { 
if ($dia_final eq $mes) { $dia_final=$dia_tempo;  } }

foreach $dia_temp (@dia_final_29) { 
if ($dia_final eq $mes) { $dia_final=$dia_tempo;  } }

if ($dia ne $dia_final) { 
   $dia_novo = $dia + 1; 
   $mes_novo = $mes
}

if ($dia eq $dia_final) { 
   $dia_novo = 01;   
   if ($mes ne "12") {
   $mes_novo = $mes_novo + 1; 
   $ano_novo = $ano;
   }
   if ($mes eq "12") {
   $mes_novo = "01";
   $ano_novo = $ano + 1;
   }
}
}

Dae, para chamar a fun�ao utilize:

&Soma_data(01,01,01);
print "Data antiga: $dia/$mes/$ano\n";
print "Data nova: $dia_novo/$mes_novo/$ano_novo\n";

Eu n�o testei, escrevi aqui r�pido, mais melhore, e veja
o que voc� pode fazer, lhe dei duas solu��es.. :)

        -- Thiago Rondon

At 20:02 11/02/00 -0200, you wrote:
>
>Bom dia
>
>No perl tem como menipular as datas (fazer calculos) ?
>Algo do tipo
>$data = "30/10/99"
>
>SomaDia(1,$data)
>
>Entao $data tem o seguinte conteudo : "01/11/99"
>
>
>--
>Abracos, Luiz Otavio
>-----------------------
>
>
>http://www.mrweb.com.br/perl/
>=======================================
>>>No site da lista, voce tera tudo sobre PERL,
>>>LINUX, PHP, ASP e informacoes, cadastramento
>>>e descadastramento da Lista.
>=======================================
> 

http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
Re: [perl] Sobre manipulacao de datas

Responder a
