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

yanghongjun

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