Having been with the Monastery for a couple months now, I felt compelled to try to toy with a few simple obfuscated scripts. I started from a simple code to study output of the 'top' command. I then continued to work on the code until it degraded to a state where it no longer looked as sane as it used to. Hence the obfuscation below:

$d=sub{print@_};@l=split/\$/,'username$size$res$count';$_
=`ps -e | wc -l`;s/[^\d]//g;@t=split/\n/,`top -b $_`;
$z=sub{length$_[0]};splice(@t,0,6);my%p;@n=map({lc}grep($z->($_
),split/[\s\t]+/,shift@t));my@v;for(@t){@v=grep(&$z($_
),split/[\s\t]+/);@s{@n}=@v;for(@l[1,2]){$s{$_
}=~s/[^\d]//g;$p{$s{$l[0]}}{$_
}+=$s{$_
};}$p{$s{$l[0]}}{$l[3]}++;}&$d("\U$l[0]\t\U$l[1]\t\t\U$l[2]\n");for(ke
+ys%p){$c="\t";$c.="\t"if(&$z($_
)<8);&$d($_.$c.$p{$_}{$l[1]}."K\t\t".$p{$_}{$l[2]}."K\n");}
[download]

"There is no system but GNU, and Linux is one of its kernels." -- Confession of Faith