Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
Perl Monk, Perl Meditation
 
PerlMonks  

RTFM

by srawls (Friar)
on Jun 03, 2001 at 06:31 UTC ( #85265=obfuscated: print w/ replies, xml ) Need Help??

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

Comment on RTFM
Download Code
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://85265]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (10)
As of 2013-06-20 01:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How many continents have you visited?









    Results (677 votes), past polls