perl 文件目录的创建删除拷贝

 

以下三个是核心包提供的

1 unlink @files

删除指定的文件集合

参数：文件集合

返回：删除的文件数

 

2 rmdir FILENAME

删除指定的目录

参数：目录名

返回：成功时为true，失败时为false，错误信息存储于 $_中

注：该函数只能删除空目录，即该目录内没有文件和子目录

 

3、mkdir FILENAME,MASK

创建目录

参数：文件名和文件权限，文件权限可省略

返回：成功创建则返回true，否则返回false，返回false时，错误信息存储于 $_中

注：此函数不能递归创建目录，即父目录必须是存在的

 

 

以下是cpan模块提供的目录操作，简单而强大

1. 删除某个目录及其子文件/目录

File::Path::rmtree(pathName);

 

2. 递归创建目录

File::Path::mkpath(pathName)

 

3. 拷贝文件

File::Copy::Recursive::fcopy($orig,$new[,$buf])

第一个参数必须是文件，第二个参数可以是文件或目录

 

4、拷贝目录

File::Copy::Recursive::dircopy($orig,$new[,$buf])

递归的拷贝目录到目标目录，包括子目录，如果目标目录不存在则创建

 

5、移动文件

File::Copy::Recursive::fmove($orig,$new[,$buf])

6、移动目录

File::Copy::Recursive::dirmove($orig,$new[,$buf])

 

设置local $File::Copy::Recursive::SkipFlop = 1;该包内的函数将会执行完，而不会停止（如果执行中发生文件

操作错误，例如无权限）