#!/usr/bin/perl -w
use strict;
my %key_char;
open(F2,'>:encoding(utf-8)',"zhengma_table_2.txt");
open(F,'<:encoding(utf-16)',"zhengma_table.txt");
while(<F>){
if(m/^([^a-z ]*)(.*)$/){
my $char=$1;
my $key=$2;
my @key=split (//s+/,$key);
foreach my $k(@key){
print F2 "$k $char/n";
}
}
else{print "cannot match at $./n";}
}
close(F);
close(F2);
输入：
一a av
一下aa
万无一失aaam
输出：
a 一
av 一
aa 一下
aaam 万无一失
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
