use system(); system ('cls'); # or equivalent on your system.
use Term::Cap; $t = Tgetent Term::Cap {TERM=>undef, OSPEED=>9600}; print $t->Tputs("cl");
use Term::Screen; my $terminal = new Term::Screen; $terminal->clrscr();
In reply to (wil) Re: clrscr(); in perl?
by wil
in thread clrscr(); in perl?
by navarra_rd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |