如何找出目录的模式(权限)？

Question

如何找出目录的模式(权限)？

Answer 1

根据perldoc -f stat:

$mode = (stat($filename))[2];
printf "Permissions are %04o\n", $mode & 07777;

Answer 2

其他示例要求您知道模式是stat输出中的第三项(即[2]).File :: stat允许您提供符号名称.

use File::stat ;
my $dir = '/etc/cron.d' ;
printf "%o", stat($dir) -> mode ;