参考文档:
- http://search.cpan.org/~cxl/Convert-EBCDIC-0.06/lib/Convert/EBCDIC.pm
- http://en.wikipedia.org/wiki/EBCDIC
- http://en.wikipedia.org/wiki/ASCII
有时候从主机上得到的文件不是ASC码的,看上去象乱码,这是因为主机上的编码是EBCDIC的。这个时候需要把代码转换成ASCII的。如下有两种方法:
- 用dd工具。这个命令,把文件名为FILE的文件,转换成ASCII码,然后存在文件FILE.txt里。
dd if=FILE of=FILE.txt conv=ascii
- 用PERL。
use Convert::EBCDIC; $ascii_string = ebcdic2ascii($ebcdic_string); $ebcdic_string = ascci2ebcdic($ascii_string);
另一种方式是:
use Convert::EBCDIC; $translator = new Convert::EBCDIC; $translator = new Convert::EBCDIC($table); $ascii_string = $translator->toascii($ebcdic_string); $ebcdic_string = $translator->toebcdic($ascii_string);