0: #!/usr/bin/perl -w
1: # rtfm - read the friendly manual/s
2: #
3: # Usage: rtfm [number of man pages to read]
4: #
5: # Originally written by Daniel N. Andersen, June 2004
6: # Modified by just about everyone at perlmonks.org
7:
8: use strict;
9:
10: my $lines = 0;
11: my $loop = 1;
12: my $select;
13:
14: if($ARGV[0])
15: {
16: $loop = $ARGV[0] unless($ARGV[0] =~ /\D/);
17: }
18:
19: while($loop)
20: {
21: foreach my $path (split(/:/, $ENV{'PATH'}))
22: {
23: opendir(PATH, $path);
24: while(defined($_ = readdir(PATH)))
25: {
26: if(-f "$path/$_")
27: {
28: $lines++;
29: $select = $_ if int(rand($lines)) == 0;
30: }
31: }
32: closedir(PATH);
33: }
34: system(man => $select);
35: $lines = 0;
36: $loop--;
37: }
-
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.
|