[Rio-pm] [OT] MSG aos Nerds

[Fernando Oliveira]

Lucas, vou aproveitar e passar a minha msg aqui tb...
(só roda em linux)

perl -e'*FELIZ=*\;*NATAL=*/;' -F: -nae'$,=join q,,,map{chr$_+scalar@{[(1)x
unpack q C\CC,q q \q \q q]}}q 10066796583001 =~/.{2}/g;BEGIN{*PAPAI_NOEL =
*ARGV}$FELIZ=$NATAL;print$F[0],join
q,,,map{chr}q;102101115116097115;=~/(.{3})/g;BEGIN{push em PAPAI_NOEL,join
q,,,map{chr}q 30471011160990471120971151151191003 =~/(.{3})/g}'

Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org


2009/12/23 Lucas Mateus <lucasmateus.oliveira em gmail.com>

> Claro que sim é Código Livre :)
>
>
> 2009/12/23 Renata Rocha <natzilla em gmail.com>
>
>> Posso repassar? :D
>>
>>
>>
>> 2009/12/22 Lucas Mateus <lucasmateus.oliveira em gmail.com>
>>
>>>  Sei que esse ja ta velho fiz em 2007 mas vai de novo.
>>>
>>> perl -e 'map{print
>>> pack("C",$n?$_-$n:$_);$n=$_}(70,171,279,384,506,538,616,713,829,926,1034,1044)'
>>>
>>> _______________________________________________
>>> Rio-pm mailing list
>>> Rio-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>
>>
>>
>>
>> --
>> Renata Rocha
>> http://renata.org
>>
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20091223/d6458e05/attachment.html>