Perlでディレクトリのパーミッションを取得したい

Question

実現したいこと

Perlで特定のディレクトリのパーミッションを取得したいのですが方法がわかりません。
Fileのものは見つけたのですが。
ご教授頂ければ幸いです。

Fileの場合

https://mas3lab.net/perl/waza/fpmg.html

@st = stat 'foo.txt';
$p = substr((sprintf "%03o", $st[2]), -3);
print $p, "\n";

Answer 1

statでディレクトリの情報も通常のファイルと同様に取得できます。
modeフィールドが、ファイルのタイプとパーミッションの両方を合わせて持っています。

use Fcntl ':mode';
my $mode = (stat($filename))[2];
my $is_directory = S_ISDIR($mode);
my $permission = $mode & 07777;

https://perldoc.perl.org/perlfunc#stat-FILEHANDLE

Comments

[kk_sato]

ご教授ありがとうございました。

ご紹介頂いたサイトには例もあって、普段から使うパーミッションも取得できました。

printf "Permissions are %04o\n", $mode & 07777;