Colored T-shirt

The Perltidy-colored source code looks like this:

#!/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^.{24})/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=[split/(\W+
    __) | | | | | | | | c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}print"\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%_')

You can notice at first a lot of strings that will probably be evaluated sometime in the near future.

Previous | Next


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