[分享] 刚发现一个好玩的输出接口Term::Cap

ZAROK

可以定位到Terminal的任意坐标，然后再输出，就像Linux的tput程序一样
很好玩的，一直就想找，今天才找到（因为每次在perldoc在线搜索tput搜出来的都是output），今天搜索color结果就找到了Term::ANSIColor（输出彩色字符用的），然后搜索Term，才把Term::Cap找了出来，哈哈哈哈
详情参考
Term::Cap
http://perldoc.perl.org/Term/Cap.html
不懂E文的朋友可以往下看：

1. #!/usr/bin/perl
   
2. use Term::Cap;
   
3. require POSIX;
   
4. my $termios = new POSIX::Termios;
   
5. $termios->getattr;
   
6. my $ospeed = $termios->getospeed;
   
7. 
   
8. $col = 5;
   
9. $row = 20;
   
10. $FH = *STDOUT;
    
11. 
    
12. $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
    
13. $terminal->Trequire(qw/ce ku kd/);
    
14. 
    
15. $terminal->Tgoto('cm', $col, $row, $FH);
    
16. #$terminal->Tputs('dl', $count = 5, $FH);
    
17. 
    
18. print "++++++++++++++++++++++++++\n";
    
19. 
    

复制代码

$col 是列坐标
$row 是行坐标

因为我搞不明白capability到底是杀意思，所以原始例子中的$terminal->tputs()我无法让他打印出来东西，所以直接注释掉，用print输出，娃哈哈，我好邪恶～～{:3_204:}


话说回来，有没有谁知道Capability指的究竟是什么？（我无法理解“能力”这个解释）

toniz

{:3_186:}楼主相当邪恶。。。。。。

ZAROK

{:3_203:} 其实俺从小就邪恶～～从前用shell写脚本的时候就不会用tput程序输出，只会用它定位，
所以俺就先用tput定位，{:3_190:} 然后用echo输出，娃哈哈哈，这是优良的革命传统～～