perl 打印彩色到文件?

sunworld

如題,  怎么樣用perl語(yǔ)言打印彩色文件? 下面的好象不行.

#! /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

回復(fù) 1# sunworld


     啥叫彩色文件？文本文件哪來(lái)的顏色？

你用的那個(gè)模塊，是用來(lái)給（虛擬）終端中打印的文本添加顏色的。

ttcn_cu

回復(fù) 1# sunworld


    同學(xué)不要灰心，你的腳本有語(yǔ)法錯(cuò)誤，用use strict; 和 use warnings檢查一下
然后在彩色終端上cat 那個(gè)文件就能看到顏色了。

substr函數(shù)

ttcn_cu 發(fā)表于 2014-04-26 08:07
回復(fù) 1# sunworld
在彩色終端上cat 那個(gè)文件就能看到顏色了。

終端中打印添加顏色的。
文本文件哪來(lái)的顏色？
cat 那個(gè)文件不能看到顏色。

ttcn_cu

回復(fù) 4# substr函數(shù)


    你不試試怎么知道，用putty

sjdy521

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

復(fù)制代碼

所謂的終端上顯示的彩色，無(wú)非是一些終端使用的特殊控制字符，參考：
http://blog.csdn.net/luolovegui/article/details/637294

sunworld

回復(fù) 3# ttcn_cu

是有錯(cuò)誤:
    Global symbol "$fh" requires explicit package name
可是我不知道怎么修改?

謝謝

substr函數(shù)

回復(fù) 5# ttcn_cu

看了一下結(jié)果是可以
感謝！