AI时代，找源码已成为过去式，纪念我过去的十年0(回)
26天前
还有人吗2(回)
44天前会python真的可以为所欲为0(回)
524天前
这里还有人吗2(回)
709天前这里还有人吗0(回)
709天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
934天前#----------------------------- |
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; |
#----------------------------- |
