|
Posted by Ben Morrow on March 30, 2008, 6:40 pm
Please log in for more thread options
> This is an excerpt from the latest version perlfaq8.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is at http://faq.perl.org .
>
> --------------------------------------------------------------------
>
> 8.7: How do I clear the screen?
>
> If you only have do so infrequently, use "system":
>
> system("clear");
>
> If you have to do this a lot, save the clear string so you can print it
> 100 times without calling a program 100 times:
>
> $clear_string = `clear`;
> print $clear_string;
>
> If you're planning on doing other screen manipulations, like cursor
> positions, etc, you might wish to use Term::Cap module:
>
> use Term::Cap;
> $terminal = Term::Cap->Tgetent( {OSPEED => 9600} );
> $clear_string = $terminal->Tputs('cl');
A reference to Term::ANSIScreen would fit well here, as would one to
Win32::Console.
Ben
|