- 博客(1)
- 资源 (1)
- 收藏
- 关注
原创 转utf-16格式的码表至utf-8,perl脚本
<br /><br />#!/usr/bin/perl -w<br />use strict;<br />my %key_char;<br />open(F2,'>:encoding(utf-8)',"zhengma_table_2.txt");<br />open(F,'<:encoding(utf-16)',"zhengma_table.txt");<br />while(<F>){<br /> if(m/^([^a-z ]*)(.*)$/){<br />my $char=$1;<br />my
2010-09-22 13:42:00 1449
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人