#!/usr/bin/perl -p
# $Id$
use strict;
use warnings;
use utf8;
use open ':std', ':utf8';
#use open IO => ':utf8';
#binmode(STDIN, ':encoding(utf8)');
#binmode(STDOUT, ':encoding(utf8)');
s|^(|$1-CN">|i;
# s|^(\s*|$1=gb2312">|i;
s/(\.zh)(?=\.(?:gif|jpg|png))/$1-cn/g;
# s|(.*)|$1|;
# 先把全部「著」字转为「着」……
#1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)著/$1着/);
tr/著/着/;
# 然后再在适当的词语,把「着」字转回「著」……
# 著作、著者、著名、著述、著重、著书
# 所著、土著、显著、编著
s/(所|土|显|编)着/$1著/g;
s/着(?=作|者|名|述|重|书|称)/著/g;
#1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*[\x00-\x7F]+)着(?=[\x00-\x7F]+|$)/$1著/);
# s/\\>/$1/g;
# s/\\>/文档/g;
# s/\\>/扩展/g;
tr/於/于/;
s/二进位套件/二进制包/g;
s/(源码|原始码)套件/源码包/g;
s/软(?:体|件)套件/软件包/g;
s/(装置|设备|视窗|窗口)管理员/$1管理器/g;
s/(二|八|十|十六)进位/$1进制/g;
s/笔记型(?=电脑|计算机)/笔记本/g;
s/拨接连线/拨号连接/g;
s/光碟机/光驱/g;
s/命令稿/脚本/g;
s/(?:启|起)动磁(?:碟|片)/启动盘/g;
s/引导盘/启动盘/g;
s/(?:救援|急救)磁(?:碟|片)/急救盘/g;
s/全球资讯网/万维网/g;
s/网际网(络|路)/互联网/g;
s/使用者/用户/g;
s/原始码/源码/g;
s/原始程式码/源代码/g;
s/原程式码/源代码/g;
s/修补档案/补丁文件/g;
s/修补档/补丁/g;
s/映射站(台)?/镜像/g;
s/映像档(案)?/映像/g;
s/数据机(?!器|械|件)/调制解调器/g;
s/新闻群组/新闻组/g;
s/―/─/g;
s/「/“/g;
s/」/”/g;
s/『/‘/g;
s/』/’/g;
s/相容/兼容/g;
s/(?