如果文件权限大于755，如何在Perl中检查？

Question

对于unix文件，我想知道Group或World是否对该文件有写权限。

我一直在思考这些：

my $fpath   = "orion.properties";
my $info    = stat($fpath) ;
my $retMode = $info->mode;
$retMode = $retMode & 0777;

if(($retMode & 006)) {
  # Code comes here if World has r/w/x on the file
} 

谢谢。

Answer 1

您已经接近您的建议 - stat 的用法是有点偏离（但转念一想，您必须使用 File::stat; 如果您的代码完整，它会有所帮助），掩码常量有错误，并且注释有些不尽如人意：

use strict;
use warnings;
use File::stat;

my $fpath   = "orion.properties";
my $info    = stat($fpath);
my $retMode = $info->mode;
$retMode = $retMode & 0777;

if ($retMode & 002) {
    # Code comes here if World has write permission on the file
}     
if ($retMode & 020) {
    # Code comes here if Group has write permission on the file
}
if ($retMode & 022) {
    # Code comes here if Group or World (or both) has write permission on the file
}
if ($retMode & 007) {
    # Code comes here if World has read, write *or* execute permission on the file
} 
if ($retMode & 006) {
    # Code comes here if World has read or write permission on the file
} 
if (($retMode & 007) == 007) {
    # Code comes here if World has read, write *and* execute permission on the file
} 
if (($retMode & 006) == 006) {
    # Code comes here if World has read *and* write permission on the file
}
if (($retMode & 022) == 022) {
    # Code comes here if Group *and* World both have write permission on the file
}

---

问题标题“如果文件权限大于 755，如何检查 Perl？”中的术语？即“组/世界具有写权限”有点可疑。

该文件可能具有权限 022（或者更合理的是 622），并且这将包括组和世界写入权限，但这两个值都不能合理地声称“大于 755”。

我发现有用的一组概念是：

• 设置位 - 权限字段中的位必须为 1。
• 重置位 - 权限字段中的位必须为 0。
• 不关心位 - 可以设置或更改的位重置。

例如，对于数据文件，我可能需要：

• 设置0644（所有者可以读写；组和其他人可以读取）。
• 重置0133（所有者无法执行-它是一个数据文件；组和其他人无法写入或执行）。

更有可能的是，对于数据文件，我可能需要：

• 设置 0400（所有者必须能够读取）。
• 复位0133（无人可以执行；组和其他人不能写入）。
• 不关心0244（不关心所有者是否可以写入；不关心组或其他人是否可以读取）。

目录略有不同：执行权限意味着您可以将该目录设为当前目录，或者如果您知道目录中的文件名称，则可以访问该目录中的文件，而读取权限意味着您可以找出该目录中的文件，但不能也无需执行权限即可访问它们。因此，您可能具有：

• 设置 0500（所有者必须能够读取和使用目录中的文件）。
• 重置0022（组和其他人不得修改目录-删除或添加文件）。
• 不关心0255（不关心用户是否可以创建文件；不关心组或其他是否可以列出或使用文件）。

请注意，设置位和重置位必须是不相交的 (($set & $rst) == 0))，位的总和将始终为 0777； “不关心”位可以根据 0777 & 计算得出。 ~($set | $rst)。

Answer 2

#!/usr/bin/perl

use warnings;
use strict;

chomp (my $filename = <STDIN>);

my $lsOutput = `ls -l $filename`;

my @fields = split (/ /,$lsOutput);

my @per = split (//,$fields[0]);

print "group has write permission \n" if ($per[5] eq 'w');

print "world has write permission" if ($per[8] eq 'w');