#!/usr/bin/perl -p
# 繁简体中文习惯用语对译工具 T2S 0.3 版 2003-07-27 11:10
# Come From AutoWork Toolkits.
# Welcome to our team: http://i18n.linux.net.cn
# Copyleft Developer: Anita(即时科技);Improver: Liu Songhe;Dictionary Provider:Zong Yaotang
next if /^%/;
next if /%NC$/;
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)—/$1─/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)「/$1“/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)」/$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/^((?:[\x01-\x7F]|[\x80-\xFF].)*)经由(?!于)/$1通过/);
1 while (s/^((?:[\x01-\x7F]|[\x80-\xFF].)*)连线(?!索)/$1连接/);
1 while (s/^((?:[\x01-\x7F]|[\x80-\xFF].)*)变数(?!据)/$1变量/);
1 while (s/^((?:[\x01-\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”/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)『/$1“/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)』/$1”/);