Re: rtfm

in reply to rtfm

You could also reduce memory overhead (at the expense of more calls to rand) by doing your random keep/toss within the loop:

my $lines = 0;
my $selection;
foreach my $path (split /:/, $ENV{'PATH'}) {
    opendir(PATH, $path);
    while (defined($_ = readdir(PATH))) {
        if (-f "$path/$_") {
            ++$lines;
            $selection = $_ if int(rand($lines)) == 0;
        }
    }
    closedir(PATH)
}
exec(man => $selection);
[download]

We're not really tightening our belts, it just feels that way because we're getting fatter.

Comment on Re: rtfm Select or Download Code

Replies are listed 'Best First'.
Re^2: rtfm by dna (Beadle) on Jun 22, 2004 at 18:43 UTC
Done. The code seems less logical to me now, but what do I know? All we need now is some sort of GUI... :)	[reply]

In Section Craft