This script scans the perl documentation to find what it needs. I got this idea from this thread. Here we go ... 
split$",`man$"$^Xop`,$^F;splice@_,$(;
$j=(`man$"$^Xfunc`=~/(?<=program.  )(.{4})/g)[$-- --$^F];
$a=(`man$"$^Xtoc`=~/(?<=5)(.{7})/g)[215];
$p.=substr$_[$[],$_+$^F,$(for(++$....$]);
$h=(`man perlfaq1`=~/(?<=$^X$")(.{6})/g)[10];
print "$j $a $p $h\n";

[download]
Update:Changed first line so left side would read "japh"

The 15 year old, freshman programmer,
Stephen Rawls

Replies are listed 'Best First'.
Re: RTFM
by Vynce (Friar) on Jun 03, 2001 at 14:31 UTC
    what version & OS are you running? this doesn't work for me.
[reply]
      Version 5.005 and Sun Solaris. Two of my variables are a little platform dependent, try putting this at the top of the script and see if it works: 
      $a="1 1";
$b="1 1";
*(=*a;
*)=*b;

      [download]
      Also, it depends on your version of Perl and the documentation. If it still doesn't work, I'll see what I can do.

      The 15 year old, freshman programmer,
      Stephen Rawls
[reply]
[d/l]

Back to Obfuscated Code