use hacker; use another;

This one was inspired by Exegesis 7. Calling a function "little-known" just required that I play with it.

use strict;
use warnings;

BEGIN{push@INC,sub{open $_,'+>',undef;$_[1]=~/([^\.]+)/;print $_ "\$>{
+($&=~/c/?
'p N\$':'j0O<*')^\" E<H\\n\"}=$&;";seek$_,0,0;return$_}}use hacker;use
+ another;
sub _{formline(substr($<,0,25,shift),@_)}*<=*^A;$<='@';_($<,'<')for(1.
+.7);($;)=
$<=~m$(.{5})$;$<=qq=$<$;$;<,=;_(map{($_,$>{$_})}sort keys(%>));print$<
+,$/;
[download]

Runs clean on ActiveState v5.8.7 (Build 813), probably others.

The intelligent reader will judge for himself. Without examining the facts fully and fairly, there is no way of knowing whether vox populi is really vox dei, or merely vox asinorum. -- Cyrus H. Gordon

Comment on use hacker; use another; Download Code

Replies are listed 'Best First'.
Re: use hacker; use another; by liverpole (Monsignor) on Sep 20, 2005 at 04:42 UTC
That is really interesting ++. Oh, and it runs fine under Linux, too. Good job doing the research to create something unique!	[reply]