Update1:
- You'll have to download this and run it from a file
- Run it more than once to get the full effect
- Save output to a file and print for best results
Update2: fixed platform dependent bug noticed by stefan k
#!/usr/bin/perl -w # find-a-func
use strict;
$_='$;="per
l";map{map {s}^\s+}}
;$_{$_}++unless(/[^a-
z]/)}split(/
[\s,]+/)i
f(/alpha.
*$;/i../w
ait/)}`$;
doc\040$;
toc`;;;@[=k
eys%_;$; =20;$:=15;;for(0..($;*$:-1 )){$;[$_]="_"
;}until($%++>3*$;||@]>2*$:-3){@_=split(//,splice(@[,rand(
@[),1));if(3>@_){next;}$~=int(rand($;));$^=int(rand($:));
$-=$~+$^*$;;my$Erudil=0;{if($Erudil++>2*$:){next;}$a=(-1,
0,1)[rand(3)];$b=(-1,0,1)[rand(3)];unless(($a||$b)&&$~
+$a*@_<=$;&&$~+$a*@_>=0&&$^+$b*@_<=$:&&$^+$b*@_>=0){re
do;;}my$llama=0;;for(0..$#_){unless($;[$-+$a*$_+$b*
$;*$_]eq$_[$_]||$;[$-+$a*$_+$b*$;*$_]eq"_"){$llam
a++;last;}}if($llama){redo;}push@],join("",@_);f
or(0..$#_){$;[$-+$a*$_+$b*$;*$_]=$_[$_];}}}@_
=sort@];unshift@_ ,"Find:","-"x5;for$a(0.
.$:-1){for$b(0. .$;-1){$~=("a".."z")
[rand(26)];$_ ="$;[$a*$;+$b]".
$";s;_;$~; ;print;}$_=s
hift@_|| $";;print$
",$", $_,$ /;$_
=shi ft@_ ||$
";pr int $"x
$;, $"x $;,
$", $", $_
,$/;; ;}' ;;;
s[\s+] $$g; eval;
__DATA__
The use of the llama image in association with Perl is a trademark
of O'Reilly & Associates, Inc. Used with permission.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.