File: tocn.pl

package info (click to toggle)
cpanel 0.4.0-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,612 kB
  • ctags: 777
  • sloc: ansic: 7,931; sh: 3,099; makefile: 376; yacc: 318; perl: 68
file content (93 lines) | stat: -rwxr-xr-x 3,546 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
#!/usr/bin/perl -pi
#
# tocn.pl, a Perl script for translating computer terms from
#          zh_HK/zh_TW -> zh_CN, customized for CPanel.
# Copyright 2000 Anthony Fok <foka@debian.org>
# This is free software; see the source for copying conditions. There is NO
# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# Note: This script uses GB2312-encoded Chinese characters.

# �Ȱ�ȫ����������תΪ���š�����
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��/$1��/);

# Ȼ�������ʵ��Ĵ���ѡ��š���ת�ء���������
#	���������ߡ����������������ء�����
#	����������������������
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(?:��|��|��|��))��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��(?=��|��|��|��|��|��)/$1��/);

s/����׼�/�����/g;
s/(?:��|��)����(?:��|Ƭ)/����/g;
s/������/����/g;
s/(?:��Ԯ|����)��(?:��|Ƭ)/������/g;
s/ȫ����Ѷ��/��ά��/g;
s/������(��|·)/������/g;
s/ʹ����/�û�/g;
s/�ü�/�û�/g;
s/ԭʼ(��ʽ)?��/Դ����/g;
s/ԭ��ʽ��/Դ����/g;
s/ӳ��վ(̨)?/����/g;

1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)(?<!����)�׼�/$1�����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1�����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)ģ��/$1ģ��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)֧Ԯ/$1֧��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(��|Ӳ))��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(��|Ӳ|��|��|Zip ))��/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��̫(?=��)/$1��̫/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)բ��/$1����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)վ̨/$1վ��/);

# file vs. doc
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)�ļ�/$1�ĵ�/);
s/�޲�����/�����ļ�/g;
s/(��)?���ֵ�(��)?/�ı��ļ�/g;
s/��������Ա/�ļ�������/g;
s/����ϵͳ/�ļ�ϵͳ/g;
s/�趨��(?:��)?/�����ļ�/g;
s/��������/�ļ���/g;
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��(��)?/$1�ļ�/);

1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)ָ��/$1����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1��¼/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1����/);

1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��Ѷ/$1��Ϣ/);

1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)өĻ/$1��Ļ/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)�α�/$1���/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1���/);

1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)����/$1����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��(?=��|ϵ)/$1��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��·/$1����/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)�ƻ�/$1�ƻ�/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)͸��/$1ͨ��/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)Ԥ��/$1ȱʡ/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��ӡ/$1��ӡ/);

s/��ʽ��/�����/g;
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)��ʽ���Ա/$1����ʦ/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)(?<!��)��ʽ/$1����/);

s/ͨ����̳/�ʼ��б�/g;
s/�����鱨/������Ϣ/g;
s/��ҵϵͳ/����ϵͳ/g;
s/�Ӵ�ϵͳ/����ϵͳ/g;
s/�Ӵ�����Ա/���ڹ�����/g;
s/�ŷ���/������/g;
s/����(?=ģʽ|�༭|����)/�ı�/g;
s/(?:��|ӡ)���/��ӡ��/g;
s/������/�ڴ�/g;
s/��Ԫ��ʾ��/��ʾ��/g;
s/��ʽ��/�����/g;
s/���Ͽ�/���ݿ�/g;