[Cascavel-pm] [off-topic] boas festas!
Nilson Santos Figueiredo Junior
acid06 em gmail.com
Sábado Dezembro 24 19:00:17 PST 2005
Pô. O único problema é que pra esse programa dar certo você teria que
ter comprado camisinha já antes do Natal, caso contrário o "use
camisinha" daria um erro em compile-time e o programa nem rodaria!
"Nerdices" à parte, boas festas a todos também. ;-)
-Nilson Santos F. Jr.
On 12/24/05, Breno G. de Oliveira <breno em clavis.com.br> wrote:
> É isso aí pessoal, divirtam-se bastante nesse fim de ano e tomara que
> 2006 seja cheio de prosperidade, felicidade, saúde e muito Perl ;)
>
> Acho que agora só volto a ler emails ano que vêm hehehehhe
>
>
> Um forte abraço a todos!
>
> breno
>
> ----------------8<--------------
> package Fim_de_Ano;
>
> require Amigos;
> require Familia;
>
> use Comida qw(rabanada, cereja, peru_de_natal, ... );
> use constant PAZ => 1;
>
> our $dinheiro++;
> our $saude++;
> our $felicidade++;
> our $tristeza--;
>
> if( localtime eq 'Sun Dec 25 00:00:00 2005')
> {
> require Papai_Noel;
> require Presentes;
>
> print 'Feliz Natal!!!';
> }
>
> if( localtime eq 'Su Jan 01 00:00:00 2006')
> {
> require fogos_de_artificio;
> require champagne;
>
> use camisinha;
>
> print 'Feliz Ano Novo!!!';
>
> if($cidade eq 'Rio') {
> goto $copacabana or $lagoa;
> }
> else {
> goto $FESTA;
> }
> }
>
> use Perl;
>
> PAZ;
> ----------------8<--------------
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
Mais detalhes sobre a lista de discussão Cascavel-pm