论坛徽章:: 18

电梯直达

1楼 [收藏(0)] [报告]

发表于 2014-02-04 04:04 |只看该作者 |倒序浏览

本帖最后由 bikkuri 于 2014-02-03 23:36 编辑

大家新年好！
有一个新问题向大家请教。
我有一些含有ASCII控制字符的文本，以下是一个例子：

^[[1;33;40mCurrent time is^[[31m Tue Feb 4 03:25:29 UTC 2014^[[m
^[[1;33;40mSystem has been up for^[[31m 9 hours 12 minutes ^[[m
^[[1;33;40mProgram has been executed for^[[31m 111 ^[[33mtimes^[[m

复制代码

其中的ASCII控制字符都是以ESC字符（^[或者\033）开头，以m结尾。例如第一行：
^[[1;33;40m中1表示高亮，33表示字体颜色为黄色，40表示背景色为黑色
^[[35m表示将字体颜色改成红色
^[[m表示本行控制结束，所有属性清空
我希望用sed或者awk将这样的文本转换成HTML文件。例如上面这个例子，转换成：

<body bgcolor=black><table border='1' align='center'><tr><td><tt>
Current time is Tue Feb 4 03:25:29 UTC 2014
System has been up for 9 hours 12 minutes
Program has been executed for 111 times
</tt></td></tr></table></body>

复制代码

第一行和第五行可以看作是外加的固定内容，问题是如何用sed或者awk将第一段ASCII控制文本转换成第二段中第2到第4行的HTML内容？
^[[1;33;40m变成
^[[31m变成
^[[33m变成
^[[m变成 
由于我对HTML也不是很熟，如果大家有更好的办法也请赐教！
谢谢大家！

文库|博客

bikkuri

家境小康

论坛徽章:: 18

2楼 [报告]

发表于 2014-02-04 11:36 |只看该作者

本帖最后由 bikkuri 于 2014-02-04 04:37 编辑

我试着写了一下，以下代码可以输出正确结果。

awk '{gsub(/\033\[1\;31\;40m/,"",$0);gsub(/\033\[1\;32\;40m/,"",$0);gsub(/\033\[1\;33\;40m/,"",$0);gsub(/\033\[1\;34\;40m/,"",$0);gsub(/\033\[1\;35\;40m/,"",$0);gsub(/\033\[1\;36\;40m/,"",$0);gsub(/\033\[1\;37\;40m/,"",$0);gsub(/\033\[31m/,"",$0);gsub(/\033\[32m/,"",$0);gsub(/\033\[33m/,"",$0);gsub(/\033\[34m/,"",$0);gsub(/\033\[35m/,"",$0);gsub(/\033\[36m/,"",$0);gsub(/\033\[37m/,"",$0);gsub(/\033\[m/," ",$0);print $0}'

复制代码

这里重复的内容很多，不知道有没有精简的写法？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

3楼 [报告]

发表于 2014-02-05 11:41 |只看该作者

本帖最后由 jason680 于 2014-02-05 15:16 编辑

回复 2# bikkuri

How about this way
^[[1;3x;40m
 RLENGTH=10, substr($0, s+4,2) = 3x, e="", t=""
^[[3xm
 RLENGTH=5, substr($0, s+2,2) = 3x, e="", t=""
^[[m
 RLENGTH=3, e="", t=" "

$ cat color
31 red
32 lime
33 yellow
34 blue
35 magenta
36 cyan
37 white

$ awk 'BEGIN{cmd="cat color";while(cmd|getline){c[$1]=$2}}function chg(e,t,s,x,p){p=2;s=RSTART;x=RLENGTH;e="";if(x>4){if(x>9){e="";p+=2}t=""}else{t=" "}sub(/\033\[[0-9;]*m/,e""t,$0)}{while(match($0,/\033\[[0-9;]*m/))chg()}1' FILE
Current time is Tue Feb 4 03:25:29 UTC 2014 
System has been up for 9 hours 12 minutes 
Program has been executed for 111 times

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

bikkuri

家境小康

论坛徽章:: 18

4楼 [报告]

发表于 2014-02-05 13:59 |只看该作者

谢谢您的答复。这样改确实代码精简了很多，但是让awk从文件中读取颜色代码的做法却要多用一个文件。
能不能不用文件，直接给数组赋值呢？

回复 3# jason680

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

5楼 [报告]

发表于 2014-02-05 15:14 |只看该作者

本帖最后由 jason680 于 2014-02-05 15:15 编辑

回复 4# bikkuri

you can modify it by yourself for color table in BEGIN block

31 red
32 lime
...

BEGIN{c["31"]="red";c["32"]="lime"; ...}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

bikkuri

家境小康

论坛徽章:: 18

6楼 [报告]

发表于 2014-02-07 14:38 |只看该作者

谢谢！我把7种颜色全部手工加到BEGIN模块之后的代码仍然比我原来的代码短了一半以上！

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Shell › 文本转换求助-ASCII控制文本转HTML

[文本处理] 文本转换求助-ASCII控制文本转HTML [复制链接]