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");