perl 打印彩色到文件?

sunworld

如题,  怎么样用perl语言打印彩色文件? 下面的好象不行.

#! /usr/local/bin/perl
      2
      3 use Term::ANSIColor qw(:constants);
      4
      5 open ($fh, ">>ttt.txt" );
      6
      7 print( fh BLUE, "YYYY\n");
      8 print( fh GREEN, "CCCC\n");
      9 print( fh BLACK, "ZZZZ\n");
     10
     11 close( $fh );
     12
     13 exit (0);

MMMIX

回复 1# sunworld


     啥叫彩色文件？文本文件哪来的颜色？

你用的那个模块，是用来给（虚拟）终端中打印的文本添加颜色的。

ttcn_cu

回复 1# sunworld


    同学不要灰心，你的脚本有语法错误，用use strict; 和 use warnings检查一下
然后在彩色终端上cat 那个文件就能看到颜色了。

substr函数

ttcn_cu 发表于 2014-04-26 08:07
回复 1# sunworld
在彩色终端上cat 那个文件就能看到颜色了。

终端中打印添加颜色的。
文本文件哪来的颜色？
cat 那个文件不能看到颜色。

ttcn_cu

回复 4# substr函数


    你不试试怎么知道，用putty

sjdy521

1. use Term::ANSIColor qw(colored);
   
2. open FILE,">test";
   
3. print FILE colored("test string","yellow");
   
4. close FILE;

复制代码

所谓的终端上显示的彩色，无非是一些终端使用的特殊控制字符，参考：
http://blog.csdn.net/luolovegui/article/details/637294

sunworld

回复 3# ttcn_cu

是有错误:
    Global symbol "$fh" requires explicit package name
可是我不知道怎么修改?

谢谢

substr函数

回复 5# ttcn_cu

看了一下结果是可以
感谢！