[tpm] Fwd: Implementing a 'less' like pager in perl
ejanev at gmail.com
Tue Mar 2 08:10:09 PST 2010
---------- Forwarded message ----------
From: Emil Janev <ejanev at gmail.com>
Date: Tue, Mar 2, 2010 at 11:07 AM
Subject: Re: [tpm] Implementing a 'less' like pager in perl
To: Digimer <linux at alteeve.com>
You could check Pod::Usage module which is in the Perl core for some time.
The examples there are pretty much clear.
To get the paging:
pod2usage(-verbose => 2)
will print what "perldoc program_name" will print, paging included with it.
On Mon, Mar 1, 2010 at 8:49 PM, Digimer <linux at alteeve.com> wrote:
> Hi all,
> I like to have built-in '--help' messages in some of my programs, but am
> always at a loss for how to allow the user to page through it. Usually I
> have a message at the bottom akin to; "Please call './foo --help |less' to
> make reading this help message easier". That screams of "cop-out" though.
> I know I could use perldoc, but I don't like assuming that my user knows
> anything about perl.
> I've already got code to handle line wrapping and indenting lines. I just
> need some way to stop my output after X number of lines, where X is the
> terminal's number of rows, and then take the up and down arrows to scoll up
> and down through the message, with ESC or Q exiting.
> Any tips/pointers?
> toronto-pm mailing list
> toronto-pm at pm.org
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the toronto-pm