Perl中文件与目录的操作

1, 删除文件 -- unlink
如成功返回删除的文件数(True), 否则返回0(False). 如:

unlink("test.txt");
unlink("test1.txt","test2.txt");
unlink(<test*.txt>); // "rm test*.txt" under shell
2, 重命名文件 -- rename

如成功返回真(True), 否则返回假(False). 如:

rename("a.txt","b.txt");
rename("a.txt","subdirectory/a.txt");
3, 创建连接 -- link(硬链接), symlink(软链接)和readlink(取得链接内容)

对link和symlink, 如成功返回真(True), 否则返回假(False), 对readlink则返回链接所指向的文件名. 对硬链接而言, 参数必须为文件名, 不能为目录名. 如:

link("a.txt","b.txt"); // ln a.txt b.txt
symlink("a.txt","b.txt"); // ln -s a.txt b.txt
$actual_file=readlink("b.txt");
4, 目录操作 -- mkdir(创建)和rmdir(删除)

如成功返回真(True), 否则返回假(False). 如:

mkdir("temp", 0777);
rmdir("temp");
5, 修改权限与所有者 -- chmod(权限)和chown(所有者)

如成功返回成功修改的文件数(True), 否则返回0(False). 改所有者的chown函数的前两个参数必须是用户的ID和组的ID, 不能指定名称, 如:

chmod(0666,"a.txt","b.txt",...);
chown(user_id, group_id, "a.txt","b.txt",...);
6, 修改文件时间 -- utime

如成功返回成功修改的文件数(True), 否则返回0(False). 第一个参数为最后访问时间, 第二个参数为最后修改时间. 如:

$when = time() + 20 * 60;
utime($when,$when, "a.txt");