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

最新推荐文章于 2025-10-31 13:55:32 发布

转载最新推荐文章于 2025-10-31 13:55:32 发布 · 717 阅读

Perl 专栏收录该内容

35 篇文章

订阅专栏

本文介绍了一个使用Perl语言和Term::Cap模块实现的简单控制台应用，该应用可以在终端中展示一个左右移动的字符串“welcometochinaunix!”。通过调整光标位置和定时刷新屏幕来达到文字滚动的效果。

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;