Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

The other YAPC::Europe T-shirt

by BooK (Curate)
on Jul 30, 2001 at 11:55 UTC ( #100807=obfuscated: print w/ replies, xml ) Need Help??

This code will appear on the other YAPC::Europe shirt. I don't know much more, not even the shirt's color (hope it's not orange).

#!/usr/bin/perl -wT use strict;use Safe;(my$s=new Safe)->permit(qw/rand sort entereval/);@ +_{s=>'t' }=(<<Orange,"smrfnexi--tjfillx ybvwvngwr ;-)\r");%_=(%_,split(/(\n^.{2 +4})/m,q[ ____ ____ ____ _________ ________ _ \ \ / / / \ | V \ Hogeschool Holland | | + __ __ \ \/ / / \ | __ \ ____/ __ __ Amsterdam / __ +) \ \/ / \ / / /\ \ | | \ | / / \ / \ Netherlands \__ +\ > < | | / /__\ \| |__/ / | \__/ \__/ August 2-4 ( +/ /_/\_\ __|____|_/ ______ \ ____/ \____ __ __ 2001 _|_| + __ __ | \ / \ \ | \ \/ \ / \ / __ +\ \ \/ / | ______/_/ __ _\___\__|____\________/\__/_\__/ ---- / / _` + | > < | \ | | | | V V __ \ | ___ \/ __ \ \ \__, +_|/_/\_\ | ___/ | | | | ___/ / \ \| |___) ) /__) ) Coded by \___/ +_ __ __ | |_____| |__| | | | | | | ____/ ____/ Philippe (_)/ +/ \ \/ / | \ | | \ \__/ /| | \ \ "BooK" / / +_ > < |_________/\____,__|__| \______/ |__| \_____/ Bruhat /_/( +_)/_/\_\ Orange ____ ___ ___ _ ..(substr($y[&a],&p,1)=chr 97+(ord(substr$y[&a +],&p,1)+ (___ \ / _ \_/ _ \/ | $c='( +)';s/(key)|eval/$1?"value":""/eg;*y=[sp +lit/(\W+ __) | | | | | | | | c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}pr +int"\n"; __/ __/| | | | | | | | ){print@y if(select($/,$,,$<,.1*rand)||($y+=$p ++++&c)). (__)/___| |_| | |_| | | )/,$_{t}];($_=eval)=~y/\n//d;sub c{length};for +(split$c (_____(_)___(_)___/|_| udy]),'');$|++;$s->reval($_='eval join"",sort+ +keys%_')

The code will be explained in my lightning talk, at YAPC::Europe 2001. The T-shirt will be on sale exclusively at Y::E in Amsterdam.

Update: The shirt will be black, code in white.

Comment on The other YAPC::Europe T-shirt
Download Code
Re: The other YAPC::Europe T-shirt
by blueflashlight (Pilgrim) on Aug 01, 2001 at 22:13 UTC
    I could spend 10,000 years doing nothing but perl programming, and I don't think that I could ever come up with something that cool.
      Well, then you'll just have to buy the shirt to fake it :))

      Greetz
      Beatnik
      ... Quidquid perl dictum sit, altum viditur.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://100807]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (9)
As of 2014-11-24 21:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (147 votes), past polls