1739_Perl的文件拷贝功能

         全部学习汇总： GreyZhang/little_bits_of_linux: My notes on the trip of learning linux. (github.com)

         学习Perl就是靠一本小骆驼，在我工作中起了大作用的更多地也是正则表达式。初级的小骆驼没有教我怎么方便的进行文件的拷贝、属性的解析等方法，只是让正则表达式成为了我工作中不可缺少的工具。不过，缺少的那些种种我曾经在Python中全都找到了，而且仅仅依靠一个跟随软件工具安装一块儿出现在电脑上的文档。因为这个，在Python的世界中我呆了一年多，在此期间没有再回头碰Perl。

         回头想了下，工作中我需要的其实就是些简单的小脚本，通常也写不了多少行代码。虽说Python能够比较好的构建出一个比较有骨架的架构，但是这些在我使用的时候似乎没有什么优势。前阵子突然间想到了，其实，或许工作中比较实用的还是Perl，在Python中找到的那些功能我相信在Perl中也能够找到。于是搜罗了一通文档，以备不时之需。

         最近一个小脚本中需要进行文件拷贝，在此之前我的方式是直接在Perl中调用bash或者Win的批处理命令。在使用Python的时候，我轻松找到了相应的函数。总觉得，Perl中这种功能不会少，翻查文档找到了File::Copy

         试用中暂时发现这个只能够完成文件的复制功能，保留根文件相同的属性而不是文件的重新创建。

         一个简单的测试：

#!/usr/bin/perl -w

use File::Copy;

copy('copy.pl','./test') or die "can not copy:$!";

         以上脚本会把名为copy.pl的Perl程序文件拷贝到当前目录下的test文件夹。没有test文件夹的时候拷贝会失败（出现你期待之外的结果，会创建名为test的文件，内容与copy.pl完全一致，包括时间戳）。如果有test文件夹，则会完成一次文件的备份。在平时的工作中，批量化一些文件的复制这基本上已经够了。