Re: Re: Output question

I don't see why you should write your pager as '| more' will work both on unices and windoze...

But, If you want to do it anyway, a simple test in front of each print :

 if(++$line > $LINEMAX) {
     $line=0;
     getc;
}
[download]

should be enough for simple/small scripts...
Or to be a little bit cleaner, using print2 instead of print, whith print2 defined like this :

sub print2 {
 if(++$line > $LINEMAX) {
     $line=0;
     getc;
 }
 print @_;
}
[download]

UPDATE :
Term::ReadKey May be more appropriate than getc.
Anyway you got the idea...
UPDATE2 :
This answer is for oaklander, I replied to the wrong post. Apologizes (especially to Hotshot).

"Only Bad Coders Code Badly In Perl" (OBC2BIP)

Comment on Re: Re: Output question Select or Download Code

Replies are listed 'Best First'.
Re (tilly) 3: Output question by tilly (Archbishop) on Jan 04, 2002 at 09:32 UTC
Don't assume that more is the right pager to use. It irritates those of us who joke that less is more. Here is a better way: `use vars qw(%Config); use Config qw(%Config); print "My pager is $Config{pager}\n";` [download]	[reply] [d/l]
Re: Output question by oaklander (Acolyte) on Dec 26, 2001 at 19:10 UTC
arhuman, Thanks for you quick response and answer to my question! It now works the way I wanted. Can you please explain what the 'getc'is?? Also If I wanted to use the 'more' command, where would I put it in my script?? I tried several areas and it didnt work.	[reply]
Re: Re: Output question by arhuman (Vicar) on Dec 26, 2001 at 19:42 UTC
You're welcome... For the getc you better read the doc (or follow the link) as it will be more accurate and clear than I could ever be. (anyway perldoc and/or SuperSearch and/or the camel book, must now be a a reflex for you Perl lover ;-) Now for the use of the more command, just forget about using 'more' IN your script, use it the unix way (joining several simple but efficient commands to do a complex task...) via pipe. Only display the lines on the screen in your script and then using 'more' for the paging part : perl yourscript.pl \| more "Only Bad Coders Code Badly In Perl" (OBC2BIP)	[reply]


laziness, impatience, and hubris
	PerlMonks