chmod -- 改变文件权限

beyes

和 Unix/Linux 下的 chmod 命令一样，Perl 也有 chmod  函数，用来改变文件的权限，用法很简单：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl

chmod 0777, "test4.txt", "test5.txt";

运行后查看相关文件信息：

# ls -al test4.txt test5.txt
-rwxrwxrwx 1 root root 0 2011-10-11 19:00 test4.txt
-rwxrwxrwx 1 root root 0 2011-10-11 19:00 test5.txt

需要注意的是，该函数的第 2 个参数，即权限数字，也要包括第一个“特殊位“(

suid , sgid,

sticky

)，此处为 0，表示不设置各个特殊位，不然会导致权限设置错误。