如成功返回删除的文件数(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了.

Relative Posts:

• 2007/01/03 -- Perl或Shell中的文件测试命令 (2)
• 2009/02/12 -- 准确获取AIX的网络流量 (0)
• 2008/12/04 -- Perl取Linux/Unix磁盘空间 (4)
• 2008/11/28 -- 用Perl进行TCP端口确认 (0)
• 2008/08/28 -- Perl AIX-Perfstat-0.03编程 (0)
• 2008/08/28 -- 安装Perl AIX-Perfstat-0.03 (1)
• 2007/04/10 -- Perl的如何操作文件 — FileHandle (2)
• 2007/03/21 -- 在Perl中如何派生多进程 — fork函数 (8)
• 2007/01/10 -- Perl程序的一个小问题 — Command not found (2)
• 2009/09/04 -- 后台脚本挂起的几种原因 (1)

-r	可被当前用户读	-w	可被当前用户写
-x	可被当前用户执行	-o	属于当前用户
-R	可被setuid之前的用户读	-W	可被setuid之前的用户写
-X	可被setuid之前的用户执行	-O	性于setuid之前的用户
-e	文件或目录存在	-z	文件存在并且大小为0
-s	文件存在并且大小不为0	-f	是否普通文件
-d	是否目录	-l	是否符号连接
-S	是否套接字(Socket)	-p	是否管道(Pipe)
-b	是否块设备	-c	是否字符设备
-u	是否属于setuid之后的用户	-g	是否属于setgid之后的组
-k	sticky标志是否设置	-t	isatty()函数是否为真
-T	是否文本文件	-B	是否二进制文件
-M	最后修改距现在的天数	-A	最后访问距现在的天数
-C	最后Inode修改距现在的天数

    这些东西很是常用, 但却总是记不清.

Relative Posts:

• 2007/01/05 -- Perl中文件与目录的操作 (0)
• 2009/02/12 -- 准确获取AIX的网络流量 (0)
• 2008/12/04 -- Perl取Linux/Unix磁盘空间 (4)
• 2008/11/28 -- 用Perl进行TCP端口确认 (0)
• 2008/08/28 -- Perl AIX-Perfstat-0.03编程 (0)
• 2008/08/28 -- 安装Perl AIX-Perfstat-0.03 (1)
• 2007/04/10 -- Perl的如何操作文件 — FileHandle (2)
• 2007/03/21 -- 在Perl中如何派生多进程 — fork函数 (8)
• 2007/01/10 -- Perl程序的一个小问题 — Command not found (2)
• 2009/09/04 -- 后台脚本挂起的几种原因 (1)