【发布时间】：2011-12-23 12:59:53
【问题描述】：
我有一个文件路径..是否有任何单个命令可以查看路径中所有中间目录的文件/目录权限..？
【问题讨论】：
-
ls -l /path 不起作用？
-
这里，我只是为你重写了它（两次）。这应该会更好。
【发布时间】：2011-12-23 12:59:53
【问题描述】：
你可以运行这段代码：
lsd() { local v="$1"; while :; do v="${v%/*}"; [[ "$v" && ! -f "$v" ]] || break; ls -ld "$v"; done; }
lsd /usr/share/doc/acl/README
drwxr-xr-x 2 root root 4096 14 mai 12:28 /usr/share/doc/acl/
drwxr-xr-x 145 root root 4096 4 nov. 06:23 /usr/share/doc/
drwxr-xr-x 263 root root 12288 4 nov. 06:23 /usr/share/
drwxr-xr-x 14 root root 4096 28 oct. 22:47 /usr/
编辑：添加了本地关键字
Edit2：最后一项错误已解决
【讨论】：
-
我一点也不喜欢 camelCase 的名字，也不喜欢它重置全局变量的方式，但为 oneliner
sh魔法 +1。 -
@larsmans 实际上，该命令违反了 shell 命令名称的 v7 规则，其中它们都是小写的，并且键入起来非常短，只有 8 个或更少的字符。我能很快想到的唯一例外是
MAKEDEV。 -
你可以放你想要的名字，它不是预定义的等等；）对于全局，你可以在循环中添加本地...
-
-1 最后一次迭代总是抛出错误：
ls: : No such file or directory，因为v是空的。您还必须确保将 / 添加到最后一个目录，否则会丢失。例如getPermForDirs /var/tmp打印drwxr-xr-x 40 root root 4096 Nov 6 05:09 /var/ ls: : No such file or directory -
很酷，但是使用
"`readlink -f $1`"而不是简单的"$1"不是很好吗？然后你就可以使用给文件名带或不带路径。
这是一个简单的 while 循环来完成这项工作：
f="$PWD"
while [ "$f" != "/" ]
do
ls -ld "$f"
f=$(dirname "$f")
done
【讨论】：
-
在 Linux 上有一些奇怪的事情，你可以在 "//" 的根目录中找到自己。不过，不记得它是如何工作的。
-
@tchrist: AFAIK 没有人在任何当前的 Unix 上使用它，所以它只是被视为与 / 相同。在这种情况下，我认为列出 / 两次或列出 // 一次都是可以接受的。也就是说，任何使用 // for / 可能都不是未来的证据。
我知道一个这样的命令，但它已经快 30 岁了，尽管它仍然可以正常工作。它应该用 sh 或 perl 重写，但这有效：
#!/bin/csh -f
# pup - print all dir perms from here up to root
if ( $#argv == 0 ) then
set args = ( $cwd )
else
set args = ( $argv )
endif
@ mult = ( $#argv > 1 )
foreach dir ( $args )
if ( $mult ) echo "${dir}:"
loop:
if ( "$dir" == '' ) set dir = '/'
ls -lLd "$dir"
if ( "$dir" == '/' ) goto next_for
set dir = ( `echo "$dir" | sed 's;/[^/]*$;;'` )
goto loop
next_for:
end
下面是一个运行它的例子：
% pup /usr/src/usr.bin/vi/vi
drwxr-xr-x 3 root wsrc 1024 May 29 2008 /usr/src/usr.bin/vi/vi
drwxr-xr-x 13 root wsrc 512 Aug 7 2008 /usr/src/usr.bin/vi
drwxr-xr-x 229 root wsrc 4096 Aug 7 2008 /usr/src/usr.bin
drwxrwxr-x 18 root wsrc 512 Aug 7 2008 /usr/src
drwxr-xr-x 22 root wheel 512 Jan 28 2010 /usr
drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
它默认为 cwd。是的，输出并不漂亮。如果我今天早上有动力，也许我会重写它。
编辑
这是一个使用您的系统ls 程序的重写。它在处理符号链接方面具有优势：
#!/usr/bin/env perl
use strict;
use warnings;
use Cwd qw( getcwd abs_path );
use File::Basename qw( dirname );
sub ls { 0 == system("ls", "-lid", @_) }
@ARGV = getcwd() unless @ARGV;
for my $path (@ARGV) {
if (-l $path) {
ls($path);
$path = abs_path($path);
}
while (ls($path) && $path !~ m{ \A /+ \z }x) {
$path = dirname(abs_path($path));
}
}
exit;
但我真的很讨厌 ls 格式化事物的方式。例如：
chthon(tchrist)% pup1 /dev/null /dev/zero /dev/tty /dev/stdin /dev/fd/0 ~ Mail
79283 crw-rw-rw- 1 root wheel 2, 2 Nov 7 07:53 /dev/null
77953 drwxr-xr-x 3 root wheel 22016 Oct 17 21:15 /dev
2 drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
79284 crw-rw-rw- 1 root wheel 2, 12 Oct 25 2008 /dev/zero
77953 drwxr-xr-x 3 root wheel 22016 Oct 17 21:15 /dev
2 drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
79280 crw-rw-rw- 1 root wheel 1, 0 Nov 4 15:17 /dev/tty
77953 drwxr-xr-x 3 root wheel 22016 Oct 17 21:15 /dev
2 drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
79285 crw-rw-rw- 1 root wheel 22, 0 Oct 25 2008 /dev/stdin
77953 drwxr-xr-x 3 root wheel 22016 Oct 17 21:15 /dev
2 drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
79308 crw-rw-rw- 1 root wheel 22, 0 Oct 25 2008 /dev/fd/0
77954 dr-xr-xr-x 2 root wheel 1024 Oct 25 2008 /dev/fd
77953 drwxr-xr-x 3 root wheel 22016 Oct 17 21:15 /dev
2 drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
1143296 drwxr-xr-x 197 tchrist wheel 48128 Nov 7 07:53 /home/tchrist
2 drwxr-xr-x 15 root wheel 512 Aug 12 2008 /home
2 drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
1146538 lrwx------ 1 root wheel 5 Oct 23 2008 Mail -> /mail
2 drwxr-xr-x 134 tchrist wheel 5120 Nov 7 07:43 /mail
2 drwxr-xr-x 21 root wheel 1024 Aug 23 2010 /
明白我的意思了吗？所以这是一个完全内置的。
自从我从find2perl 窃取的 ls 例程以来，我一直在追踪主要/次要宏。除了我测试的系统之外，它可能无法在其他系统上正确执行这些操作。
#!/usr/bin/env perl
use strict;
use warnings;
my $USE_SHELL_LS_PROGRAM = 0;
use Cwd qw( getcwd abs_path );
use File::Basename qw( dirname );
@ARGV = getcwd() unless @ARGV;
*ls = $USE_SHELL_LS_PROGRAM ? \&your_ls : \&my_ls;
for my $path (@ARGV) {
if (-l $path) {
ls($path);
$path = abs_path($path);
}
while (ls($path) && $path !~ m{ \A /+ \z }x) {
$path = dirname(abs_path($path));
}
}
exit;
########
sub your_ls {
0 == system("ls", "-lid", @_);
}
sub my_ls {
use POSIX qw( strftime );
my $name = shift();
my @rwx = qw(--- --x -w- -wx r-- r-x rw- rwx);
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = CORE::lstat($name)
or do {
printf STDERR "$0: cannot lstat $name: $!\n";
return 0;
};
my $pname = $name;
$blocks
or $blocks = int(($size + 1023) / 1024);
my $perms = $rwx[$mode & 7];
$mode >>= 3;
$perms = $rwx[$mode & 7] . $perms;
$mode >>= 3;
$perms = $rwx[$mode & 7] . $perms;
substr($perms, 2, 1) =~ tr/-x/Ss/ if -u _;
substr($perms, 5, 1) =~ tr/-x/Ss/ if -g _;
substr($perms, 8, 1) =~ tr/-x/Tt/ if -k _;
if (-f _) { $perms = '-' . $perms; }
elsif (-d _) { $perms = 'd' . $perms; }
elsif (-l _) { $perms = 'l' . $perms; $pname .= ' -> ' . readlink($name); }
elsif (-c _) { $perms = 'c' . $perms; $size = sizemm($rdev); }
elsif (-b _) { $perms = 'b' . $perms; $size = sizemm($rdev); }
elsif (-p _) { $perms = 'p' . $perms; }
elsif (-S _) { $perms = 's' . $perms; }
else { $perms = '?' . $perms; }
printf "%9u %-10s %4d %-8s %-8s %8s %s %s\n",
$ino,
$perms,
$nlink,
user($uid),
group($gid),
$size,
strftime("%F %T", localtime $mtime),
$pname;
return 1;
}
sub sizemm {
my $dev = shift;
# these are almost always wrong:
my $major = ($dev >> 8) & 0xff;
my $minor = $dev & 0xff;
# now fix the ones we know how to
for ($^O) {
if (/openbsd/) {
$major = ($dev >> 8) & 0xff;
$minor = ($dev & 0xff) | (($dev & 0xffff0000) >> 8);
}
if (/darwin/) {
$major = ($dev >> 24) & 0xff;
$minor = $dev & 0xffffff;
}
if (/solaris/) {
$major = ($dev >> 18) & 0x3fff;
$minor = $dev & 0x3ffff;
}
if (/linux/) {
$major = (($dev >> 8) & 0xfff) | (($dev >> 32) & ~0xfff);
$minor = ($dev & 0xff) | (($dev >> 12) & ~0xff);
}
}
return sprintf("%3d, %3d", $major, $minor);
}
# cache user number to name conversions
sub user {
use User::pwent;
my $uid = shift;
our %user;
$user{$uid} = getpwuid($uid)->name || "#$uid"
unless defined $user{$uid};
return $user{$uid};
}
# cache group number to name conversions
sub group {
use User::grent;
my $gid = shift;
our %group;
$group{$gid} = getgrgid($gid)->name || "#$gid"
unless defined $group{$gid};
return $group{$gid};
}
例如：
chthon(tchrist)% pup2 /dev/null /dev/zero /dev/tty /dev/stdin /dev/fd/0 ~ Mail
79283 crw-rw-rw- 1 root wheel 2, 2 2011-11-07 07:34:47 /dev/null
77953 drwxr-xr-x 3 root wheel 22016 2011-10-17 21:15:55 /dev
2 drwxr-xr-x 21 root wheel 1024 2010-08-23 11:43:46 /
79284 crw-rw-rw- 1 root wheel 2, 12 2008-10-25 08:03:50 /dev/zero
77953 drwxr-xr-x 3 root wheel 22016 2011-10-17 21:15:55 /dev
2 drwxr-xr-x 21 root wheel 1024 2010-08-23 11:43:46 /
79280 crw-rw-rw- 1 root wheel 1, 0 2011-11-04 15:17:35 /dev/tty
77953 drwxr-xr-x 3 root wheel 22016 2011-10-17 21:15:55 /dev
2 drwxr-xr-x 21 root wheel 1024 2010-08-23 11:43:46 /
79285 crw-rw-rw- 1 root wheel 22, 0 2008-10-25 08:03:50 /dev/stdin
77953 drwxr-xr-x 3 root wheel 22016 2011-10-17 21:15:55 /dev
2 drwxr-xr-x 21 root wheel 1024 2010-08-23 11:43:46 /
79308 crw-rw-rw- 1 root wheel 22, 0 2008-10-25 08:03:51 /dev/fd/0
77954 dr-xr-xr-x 2 root wheel 1024 2008-10-25 08:03:51 /dev/fd
77953 drwxr-xr-x 3 root wheel 22016 2011-10-17 21:15:55 /dev
2 drwxr-xr-x 21 root wheel 1024 2010-08-23 11:43:46 /
1143296 drwxr-xr-x 197 tchrist wheel 48128 2011-11-07 04:16:49 .
2 drwxr-xr-x 15 root wheel 512 2008-08-12 16:51:23 /home
2 drwxr-xr-x 21 root wheel 1024 2010-08-23 11:43:46 /
1146538 lrwx------ 1 root wheel 5 2008-10-23 14:50:24 Mail -> /mail
2 drwxr-xr-x 134 tchrist wheel 5120 2011-11-07 07:43:59 /mail
2 drwxr-xr-x 21 root wheel 1024 2010-08-23 11:43:46 /
【讨论】：
-
为什么叫
pup？类比dd? -
这很讽刺。人们看到这个的第一反应是发布一个指向grymoire.com/Unix/CshTop10.txt 的链接（有没有更规范的链接？）。我承认有些惊讶，这是由 tchrist 发布的！
-
@WilliamPursell：就像告诉我已经知道了。 :( 它写于 1983 年，在我对 csh 进行圣战之前。我在其中看到至少一个错误，因为它没有引用反引号分配。我认为可能有更好的链接，但我没有不知道佳能。试试this one。
-
我冒昧地创建了一个bashy version，因为即使是这么多的 csh 也会让我感到麻疹。行为是相同的，只是它正确处理空格。一个更高级的版本，它还修复了相对路径无限循环错误is here。
-
@larsmans 我称它为 pup 是因为它会打印所有内容。不，它没有多大意义，但很容易输入。
在 linux 上，util-linux 包包含 namei 命令。
$ namei -l /full/path/to/file
例子：
$ namei -l /var/lib/systemd/catalog/database
f: /var/lib/systemd/catalog/database
drwxr-xr-x root root /
drwxr-xr-x root root var
drwxr-xr-x root root lib
drwxr-xr-x root root systemd
drwxr-xr-x root root catalog
-rw-r--r-- root root database
【讨论】：
-
软件包的可用性和名称取决于您的发行版。此信息对于 Debian（以及因此衍生的发行版，如 Ubuntu、Mint 等）似乎是正确的，但对于随机的其他发行版可能不正确。作为另一个随机数据点，该工具似乎已在 CentOS 上开箱即用（基于对
docker pull centos的快速检查），但它们的util-linux软件包似乎包含其他内容。 -
@tripleee 是这样的：git.kernel.org/pub/scm/utils/util-linux/util-linux.git/about 包含它的发行版包可能会以不同的方式命名。 （其文档以这种方式引用它“namei 命令是 util-linux 包的一部分，可从 kernel.org/pub/linux/utils/util-linux 获得。）
如果用户对普通ls -l中不包含的完整ACL（访问列表）感兴趣，我们可以使用：
p="/home/marom/downloads/db-derby-10.15.1.3-bin.tar.gz"; while [[ -n "$p" ]]; do getfacl -t "$p"; p=${p%/*};done; getfacl -t "/"
输出是：
注意为wheel 和 GUID 标志添加了组权限。
# file: /home/marom/downloads/db-derby-10.15.1.3-bin.tar.gz
# owner: marom
# group: marom
# flags: -s-
user::rw-
group::rw- #effective:rw-
group:wheel:rw- #effective:rw-
mask::rw-
other::r--
# file: /home/marom/downloads
# owner: marom
# group: marom
user::rwx
group::rwx
other::r-x
# file: /home/marom
# owner: marom
# group: marom
user::rwx
group::---
other::---
# file: /home
# owner: root
# group: root
user::rwx
group::r-x
other::r-x
# file: /
# owner: root
# group: root
user::r-x
group::r-x
other::r-x
【讨论】：