more visual buffoonary

#!/usr/bin/perl -w
use strict;

my $s=q$qwertyui$;my @s=split //,$s;my %s;my
$i=0;while($a=shift @s){$s{$a}=$i++;}$_=qq|w
uqwu                                    ewyw
wyuw                                    utqt
qqte                                    wwew
uywu                                    rwut
qtqw                                    qwwy
uwyi                                    wutw
yqwt                                    ywue
qtqw                                    eqwt
ywue                                    wytq
tqww                                    qwtw
wtrw                                    yrwt
ywueqteqir|;s|[^$s]||g;$_=join('',map{$_=$s{
$_};}split(//));s/.../"\"\\$&\""/ege;eval;
[download]

Comment on more visual buffoonary Download Code

Replies are listed 'Best First'.
Re: more visual buffoonary by Kickstart (Pilgrim) on Apr 19, 2001 at 00:03 UTC
Why not use a few spaces on the last line to even it up? The first line has them so it wouldn't be bad and would make the box shape a little better. ie... `.... tqww qwtw wtrw yrwt ywueqteqir\|;s\|[^$s]\|\|g;$_=join('',map{$_=$s{ $_};}split(//)); s/.../"\"\\$&\""/ege; eval;` [download] Kickstart	[reply] [d/l]
Re: Re: more visual buffoonary by iamcal (Friar) on Apr 19, 2001 at 11:20 UTC
That's a really sensible idea. Doh.	[reply]