perl语言对时间进行处理,具体运行代码见附件文档。