我有一个perl progaram它的打印输出颜色.如果我重新扫描文件中的输出并在vi中打开它,我会看到颜色特殊字符.
这样的事情.
这样的事情.
^[[31;43mAnd this is red on_yellow too^[[0m
谢谢
更新：
我尝试了正则表达式.这个对我有用：
cat -v a|head ^[[30;41mThis is black on_red^[[0m ^[[30;41mAnd this is black on_red too^[[0m ^[[30;42mThis is black on_green^[[0m ^[[30;42mAnd this is black on_green too^[[0m ^[[30;43mThis is black on_yellow^[[0m ^[[30;43mAnd this is black on_yellow too^[[0m ^[[30;44mThis is black on_blue^[[0m ^[[30;44mAnd this is black on_blue too^[[0m ^[[30;45mThis is black on_magenta^[[0m ^[[30;45mAnd this is black on_magenta too^[[0m $cat -v a|head|perl -lane 's/\^\[\[\d+(;\d+)*m//g; print' This is black on_red And this is black on_red too This is black on_green And this is black on_green too This is black on_yellow And this is black on_yellow too This is black on_blue And this is black on_blue too This is black on_magenta And this is black on_magenta too