in reply to print 'more'.
Take a look at perldoc -- it does paging while running, using a temporary file. The meat of the thing is this little sub:
sub page { my ($tmp, $no_tty, @pagers) = @_; if ($no_tty) { open(TMP,"<", $tmp) or die "Can't open $tmp: $!"; local $_; while (<TMP>) { print or die "Can't print to stdout: $!"; } close TMP or die "Can't close while $tmp: $!"; } else { foreach my $pager (@pagers) { last if system("$pager $tmp") == 0; } } }
The good perldoc tries to use an array of pagers, depending on system type (Win32, VMS, DOS, OS2, and of course *N*X), and even has a flexible idea of what a pager _is_ (notepad is one option for Win32).
Now, if there is a module doing the same kind of thing, or if someone were to make one -- I would like to know :-)
If I understand your problem right, you should be able to find what you need in the perldoc source. How is that for irony? perldoc teaching you programming techniques! :-)
The Sidhekin
print "Just another Perl ${\(trickster and hacker)},"
|
---|