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;该包内的函数将会执行完，而不会停止（如果执行中发生文件
操作错误，例如无权限）
