15.3 画面を消去する
- Term::Capモジュールを使用して、適切な文字シーケンスを送信する。
use Term::Cap; $OSPEED = 9600; eval { require POSIX; my $termios = POSIX::Termios->new(); $termios->getattr; $OSPEED = $termios->getospeed; }; $terminal = Term::Cap->Tgetent({OSPEED=>$OSPEED}); $terminal->Tputs('c1', 1, STDOUT);
- 単純にclearコマンドを使用する。
system("clear");