Chinaunix首页 | 论坛 | 博客
  • 博客访问: 200369
  • 博文数量: 17
  • 博客积分: 2459
  • 博客等级: 大尉
  • 技术积分: 240
  • 用 户 组: 普通用户
  • 注册时间: 2009-12-02 21:32
文章分类

全部博文(17)

文章存档

2012年(6)

2011年(16)

2009年(1)

分类: Python/Ruby

2011-02-15 20:10:34

Perl 里面的输出颜色
 
#!/usr/bin/perl

use Color::Output;
Color::Output::Init;

cprin(" Test Color\n",0);
cprin(" Test Color\n",1);
cprin(" Test Color\n",2);
cprin(" Test Color\n",3);
cprin(" Test Color\n",4);
cprin(" Test Color\n",5);
cprin(" Test Color\n",6);
cprin(" Test Color\n",7);
cprin(" Test Color\n",8);
cprin(" Test Color\n",9);
cprin(" Test Color\n",10);


sub cprin
{
($str,$i)=@_;
cprint("\x03" . $i . "$str\x030");
}


网上找的代码, 记录下。 以后怕用的上
阅读(2781) | 评论(0) | 转发(1) |
0

上一篇:Linux route command

下一篇:Linux ACL 体验

给主人留下些什么吧!~~