http://www.perlmonks.org?node_id=100807

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.

Replies are listed 'Best First'.
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.