Erlang 中文简体字 GB2312 转 unicode 的办法(3)

最新推荐文章于 2024-10-03 22:06:42 发布

lawme

最新推荐文章于 2024-10-03 22:06:42 发布

阅读量2.7k

点赞数

文章标签： erlang 测试

本文链接：https://blog.csdn.net/lawme/article/details/4158534

版权

改了改程序，包括标点和其他符号，GB2312 的全部字符，都转换成了unicode。
def all_chars(): s = '''-module(gb2u). -export([start/0,get_unicode/2]). get_unicode([],U) -> lists:reverse(U); get_unicode([A|T],U) when A < 128 -> get_unicode(T,[A|U]); get_unicode([A,B|Z],U) -> H = get({A,B}), get_unicode(Z,[H|U]). start() ->/n''' f = open('gb2u.erl','w') f.write(s) for row in range(161,248): if row > 169 and row < 176: continue for col in range(161,255): ch1 = chr(row) ch2 = chr(col) w = ch1+ch2 try: u=w.encode('utf8') u=u.decode('utf8') except: continue s='put({%s,%s},%s),/n'%(str(row),str(col),str(ord(u))) f.write(s) f.close()
生成文件gb2u.erl最后一行的逗号，要手工改成句号。
一般地说，Erlang没有全局变量，但内建函数put/2放进内存的数据，却是全局性的。运行了gb2u:start()之后，其他程序只需直接调用gb2u:get_unicode/2即可。
测试的结果，这个转码表可用于wxErlang程序，不能用于Erlang自有的gs。