s/adiverte/Adverte/i;<br><br><div class="gmail_quote">2009/9/12 Solli Honorio <span dir="ltr"><<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Na verdade tem vários bugs ... mas deixa o Fernando pensar nos problemas .... tudo bem, eu poderia ter advertido "Ministério do Perl Adiverte, este código contém bugs conhecidos " !<br><br><div class="gmail_quote">
2009/9/12 Luis Motta Campos <span dir="ltr"><<a href="mailto:luismottacampos@yahoo.co.uk" target="_blank">luismottacampos@yahoo.co.uk</a>></span><div><div></div><div class="h5"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>Solli Honorio wrote:<br>
> Fernando, se vc está recebendo a data em epoch (o formato retornado pelo<br>
> time) então vc pode fazer assim :<br>
><br>
> <code><br>
> my $hoje = int time / 86_400;<br>
><br>
> if ( int $data_do_banco / 86_400 < $hoje ) then {<br>
> print "ontem\n";<br>
> } else {<br>
> print "hoje\n"<br>
> }<br>
> </code><br>
<br>
</div>Ops. Tem um bug aqui, eu acho... isso não faz distinção entre ontem e<br>
antes-de-ontem... ;)<br>
<br>
Putamplexos<br>
<font color="#888888">--<br>
Luis Motta Campos is a software engineer,<br>
Perl Programmer, foodie and photographer.<br>
</font><div><div></div><div>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div></div></div><br><br clear="all"><div><div></div><div class="h5"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>