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

  知识源于积累, 过段时间后, 我可以和大家讨论Perl了.

发表留言:

« Previous | Main | Next »

英语900句 | English 900

  • You have the final say.
  • 你说了算.
  • She insists that it doesn't matter.
  • 她坚持说那没关系.
  • He's made up his mind to quit his job.
  • 他已决定辞去他的工作.
  • I've decided not to sell the house.
  • 我决定不卖房子了.
  • I'm determined to leave.
  • 我决意要走了.