Perl复制、移动、重命名文件/目录
Perl复制、移动、重命名文件/目录
File::Copy复制文件
File::Copy模块提供了copy函数和cp函数来复制文件，它们参数上完全一致，但行为上稍有区别。
用法大致如下：
1 |
use File::Copy qw(copy cp); |
- 如果第一个参数是文件句柄，那么将直接从文件句柄来读取数据，如果这个参数是文件，那么将打开这个文件来读取数据
- 第二个参数是数据的写入目标
- 如果目标文件不存在，但父目录存在，则创建该目标文件，但如果父目录也不存在，则报错
- 如果目标文件存在，则覆盖该目标文件，不会给出任何提示
- 如果目标是一个已存在的目录，且源不是一个文件句柄，则拷贝到目标目录中，如果源是一个文件句柄，将报错
- 源和目标不能是同一文件
- 因为是拷贝操作，所以可以跨文件系统拷贝
- 第三个可选参数用于设置拷贝时的缓冲大小。对于文件来说，一般缓冲大小是整个文件(但最大2MB)，对于不关联实体文件的文件句柄(如套接字文件句柄)，默认为1K大小
- cp可以替换copy。它们的参数模式完全一致，但cp会保留源文件的属性，而copy则是采用目标文件的默认属性。此外，cp在遇到权限错误的时候返回0，而不管文件是否成功拷贝
- 强烈建议 ：如果可以，都使用文件名而不是文件句柄。如果要使用文件句柄，则采用binmode模式的文件句柄，以免丢失某些数据
- File::Copy模块无法操作目录，所以copy无法复制目录
- File::Copy模块无法操作目录，所以move无法重命名或移动目录
- move有两个参数，第一个是源，第二个是目标
- 如果目标是个已存在的目录，而源是个非目录，则源将被移动到目标目录内
- 如果可以，move在文件系统底层只是简单地重命名文件。否则(例如跨文件系统)，将copy源文件到目标，然后删除源文件。如果这个copy+delete的过程中失败，则在目标路径下会遗留一个可能还未拷贝完成的副本
- move可以使用mv替代
例如，现在/mnt/g下创建一个文件t1.py。然后执行如下内容的perl程序：它将拷贝root下的t.py，然后再拷贝覆盖到已存在的t1.py。
1 |
use File::Copy qw(copy cp); |
重命名/移动文件
rename函数可以重命名文件，也可以移动文件到其它目录。功能类似于unix下的mv命令。
1 |
rename old_name,new_name; |
但需要注意，rename函数无法跨文件系统移动文件，因为它的底层仅仅只是重命名，修改文件inode中的数据。跨文件系统移动文件，实际上是复制文件再删除源文件，它会导致inode号码改变，rename的本质是基于inode的，无法实现这样的功能。
1 |
rename "test2.log","test222.log" |
File::Copy模块提供了move函数，它可以跨文件系统移动文件。用法大致如下：
1 |
use File::Copy qw(move mv); |