Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
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";
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.
      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;
      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

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 about the Monastery: (3)
As of 2015-07-06 03:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (69 votes), past polls