车东[Blog^2]

Marcin Gryszkalis 写道:

> Hi
>
> I like you script and I added little fix to make it try additional
> perldoc forms (with -f and -q switch). I know that funciotns are
> available at perlfunc page (and faqs at perlfaqX) but perlfun is pretty
> big page so it takes some time to render (and you still have tearch in
> the page for specific function). The fix chenges getPerldocPage to
> something like (It assumes that perldoc returns nonzero value when
> nothing's found - it seems to be true in all systems I tested).
>
> function getPerldocPage ($parameter) {
> exec("perldoc ".escapeshellarg($parameter), $lines, $returncode);
> if ($returncode == 0) return formatManPerlDoc($lines, "perldoc");
> exec("perldoc -f ".escapeshellarg($parameter), $lines, $returncode);
> if ($returncode == 0) return formatManPerlDoc($lines, "perldoc");
> exec("perldoc -q ".escapeshellarg($parameter), $lines, $returncode);
> if ($returncode == 0) return formatManPerlDoc($lines, "perldoc");
> return "";
> }
>
> regards
>