perl对文件和目录进行操作

枫叶飞翔

对文件和目录进行操作　　opendir 目录句柄，“目录”；
　　for $a(readdir 目录句柄){
　　printer $a
　　}
　　@a=readdir HOME;
　　打印目录，没有排序。
　　查找递归目录用File::Find
　　删除文件：（只是删掉连接，数据应该还没有删掉。我是这样理解）
　　unlink “文件”，“文件2”；
　　注：unlink返回的是成功删除文件的数量。
　　对应的，创建一个文件的硬链接：
　　link “文件”，“硬链接”；
　　有硬链接就有软连接：
　　symlink “文件”，“软连接名”；
　　unlink glob “*.tmp";
　　使用glob，这里不是正则。
　　重命名文件：
　　rename ”源”，“新名字”；
　　创建目录：
　　mkdir “目录名”，0755；
　　第二个参数是初始权限。这里的0是指八进制，不是那个特殊位。注意了，如果第二个参数是字符串，不
　　管前面是不是0，这个语句都是错误的。
　　oct函数：
　　强制一个以个字符串作为8进制的数字来解释。不关前面是不是0.
　　删除空目录：
　　rmdir “目录”；
　　rmdir是File：：Path模块中的函数。
　　改变文件的权限：
　　chmod 0777，“文件1”，“文件2“；
　　安装File：：chmod
　　改变所有者：
　　chown uid，gid，“文件”；
　　如果用用户名，就要用 getpwnam  “用户名” 转换成uid使用。
　　chown返回改变文件个数。
　　改变文件的时间戳：
　　utime “atime”，“mtime”，“文件”；
　　还有一个ctime是不能修改的。所以，这里就不用这个参数了。
　　atime和mtime的格式，是time函数返回的格式就可以了。如：1247803647
　　$mtime=$atime-24*60*60,修改时间变成一天前修改的。