[Rio-pm] [JAPH] Gentoo-Perl

[Claudio Pereira aka IndioX]

Caros, não é de minha autoria, mas gostei deste! :-)

$ cat gentoo.pl
#!/usr/bin/perl

      #gentoo lnx
   print chr for $_,
 local    $_=74,$_+74-
31,$_*   2-33,$_*4/2-
32,32,2*0*2,97,110,1+
 10+100,116,104,101,
   114,2**5,80,101,
         ,114,108,
        2**5,104,
       97,99,107
      ,101,114
        ,10,

$ perl gentoo.pl
Just another Perl hacker


Para quem quiser, o source esta em http://indiox.net/gentoo.pl

[  ]'s
-- 
Claudio Pereira aka IndioX
GentooBR - http://gentoobr.org
mailto: indiox em gentoobr.org
---------------------------------------------
Gentoo Documentation Member
http://gdp.gentoo.org