perl 清屏

[perl]代码库

#-----------------------------
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 ( 'cl', 1, STDOUT );
#-----------------------------
system ( "clear" );
#-----------------------------
$clear = $terminal->Tputs ( 'cl' );
$clear = `clear`;
#-----------------------------
print $clear;
#-----------------------------