Perl中文件与目录的操作

marginwidth="0" marginheight="0" src="http://creative.unionsys.bolaa.com/?daty=1&sp=1&pu=9606&agmt=72&da=473" frameborder="0" width="760" scrolling="no" height="150">

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");  

marginwidth="0" marginheight="0" src="http://creative.unionsys.bolaa.com/?daty=1&sp=1&pu=9606&agmt=68&da=392" frameborder="0" width="760" scrolling="no" height="115">