perl处理文本文件，学习参考用。比较简单。初学perl可以参考。