Term::ANSIColor

最新推荐文章于 2024-11-06 01:13:50 发布

转载最新推荐文章于 2024-11-06 01:13:50 发布 · 1.8k 阅读

收录于

本文介绍如何在Perl中利用ANSI转义序列来改变输出文本的颜色及光标位置。通过具体示例代码展示了如何设置文本颜色以及如何调整光标的位置。

1 查看ANSIColor.pm可以得知作者是利用ANSI转义序列，改变终端字符颜色的。

print "\e[34m\n"; # 改变前景色为blue;

shell命令为echo -e"\033[31m"; # 改变前景色为红色。

(freeBSD，Solaris下此命令测试OK)

#!/usr/bin/perl 
use strict; 
use Term::ANSIColor qw(:constants); 

$Term::ANSIColor::AUTORESET = 1; 

$| = 1; 
my $str = "Welcome to chinaunix ^_^!\n"; 

for my $i(0..length($str)-1) 
{ 
   print BOLD RED substr($str, $i, 1); 
   select(undef, undef, undef, 0.3); 
} 
exit 0;

2 转义序列echo -e"\033[20;40H";可以改变光标位置。

perl中就可以：print"\e[20;40H";

#!/usr/bin/perl 
use strict; 
use Term::ANSIColor qw(:constants); 

$Term::ANSIColor::AUTORESET = 1; 

$| = 1; 

print "\e[20;40H"; 
my $str = "Welcome to chinaunix ^_^!\n"; 

print BOLD BLINK $str; 
exit 0;