https://blog.csdn.net/rockiecxh/article/details/25214261 Perl:用File::Basename来获取文件…
https://www.jianshu.com/p/dfd53c5ada1f Perl 中的 PathTools 之 Cwd 模块详解
perl 时间函数(timelocal,localtime,strftime)小用 https://blog.csdn.net/monk1992/article/details/82697670
https://blog.csdn.net/u014703817/article/details/36424645 perl函数说明(flock)