Term::Cap, Tgetend(), Tgoto, Tputs()

Term::Cap 终端控制模块。

代码效果：一个左右移动的字串"welcome to chinaunix! " 

#!/usr/bin/perl use strict; use Term::Cap; $| = 1; my $i = 1; my $flag = 0; my $tcap = Term::Cap->Tgetent({TERM => undef, OSPEED => 1}); $tcap->Tputs('cl', 1, *STDOUT);#clear screen while($i) {    if($i > 50 || $flag == 1)    {       $i --;       $flag = 1;       $flag = 0 if($i == 1);    }    else    {       $i ++;          $flag = 0;    }    $tcap->Tgoto('cm', $i, 15, *STDOUT);#move cursor    print " welcome to chinaunix! ";    select(undef, undef, undef, 0.02); } exit 0;