ファイル所有者の取得

　statでユーザIDを取得して、取得した数値でgetpwuidを呼び出します。

use strict;
use warnings;

my $fname = 'data.txt';

# ファイル情報を取得する
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
	$atime, $mtime, $ctime, $blksize, $blocks) = stat $fname;

# 所有者ユーザID(数値)からユーザ名を取得する
my $uname = getpwuid $uid;

print $uname, "\n";

ファイル所有者の取得

関連項目