<br><div class="gmail_quote">---------- Forwarded message ----------<br>From: <b class="gmail_sendername">Emil Janev</b> <span dir="ltr"><<a href="mailto:ejanev@gmail.com">ejanev@gmail.com</a>></span><br>Date: Tue, Mar 2, 2010 at 11:07 AM<br>
Subject: Re: [tpm] Implementing a 'less' like pager in perl<br>To: Digimer <<a href="mailto:linux@alteeve.com">linux@alteeve.com</a>><br><br><br><br>You could check Pod::Usage module which is in the Perl core for some time.<br>
<br><a href="http://perldoc.perl.org/Pod/Usage.html" target="_blank">http://perldoc.perl.org/Pod/Usage.html</a><br><br><br>The examples there are pretty much clear.<br>
<br>To get the paging:<br><br>pod2usage(-verbose => 2)<br><br><br>will print what "perldoc program_name" will print, paging included with it.<br><br>--<br>Emil<div><div></div><div class="h5"><br><br><br><div class="gmail_quote">
On Mon, Mar 1, 2010 at 8:49 PM, Digimer <span dir="ltr"><<a href="mailto:linux@alteeve.com" target="_blank">linux@alteeve.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Hi all,<br>
<br>
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.<br>
<br>
I know I could use perldoc, but I don't like assuming that my user knows anything about perl.<br>
<br>
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.<br>
<br>
Any tips/pointers?<br>
<br>
Thanks!<div><div></div><div><br>
_______________________________________________<br>
toronto-pm mailing list<br>
<a href="mailto:toronto-pm@pm.org" target="_blank">toronto-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/toronto-pm" target="_blank">http://mail.pm.org/mailman/listinfo/toronto-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br></div></div>-- <br><font color="#888888">Emil Janev<br>
</font></div><br><br clear="all"><br>-- <br>Emil Janev<br>