Another way to do it

So if you wanted to be straightforward, you could always define %_ like this:

%_ = ( 
       's' => '... The big YAPC::Europe banner ...',
       't' => "smrfnexi--tjfillx ybvwvngwr ;-)\r",
       'udy' => '',
       ''                                                        => "\n   ____   ___   ___  _  ",
       '..(substr($y[&a],&p,1)=chr 97+(ord(substr$y[&a],&p,1)+'  => "\n  (___ \\ / _ \\_/ _ \\/ | ",
      q<$c='( +)';s/(key)|eval/$1?"value":""/eg;*y=[split/(\\W+> => "\n    __) | | | | | | | | ",
       'c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}print"\\n";' => "\n __/ __/| | | | | | | | ",
       '){print@y if(select($/,$,,$<,.1*rand)||($y+=$p+++&c)).'  => "\n(__)/___| |_| | |_| | | ",
       ')/,$_{t}];($_=eval)=~y/\\n//d;sub c{length};for(split$c' => "\n (_____(_)___(_)___/|_| "
     );

Previous | Next


Copyright © 2000-2001, Philippe "BooK" Bruhat.