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: }