#我的问题是,原文件中含有%,perl处理后,需要将源文件的百分号原样输出
#如果不做处理,% b, % n,% t这些都会被认为成格式符或功能性字符
#简单处理如下
while (IN){
chomp;
~s/\%/\%\%/g;
$line=$_;
printf OUT "$line\n";
}