linux - Perl:从 star 命令获取用户名和组名

Question

这是我正在使用的代码片段，我无法获取所需文件的用户名和组名。

#!/usr/bin/perl
use strict;
use Data::Dumper;
use File::stat;
$somedir = '/var/vob/icc_shantesh/';
$file = $somedir."power.log";

my $gid = stat($file1)->gid;
my $uid = stat($file1)->uid;

print "User Id : $uid Group Id : $gid";

输出: 用户编号:23489 群组编号:29023

如何获取用户名和组名？

Answer 1

getgrgid($gid);
getpwuid($uid);

可能有用(添加组，这是错误的)

更新

我把你的代码改成了这个，它起作用了

 #!/usr/bin/perl
 use strict;
 use Data::Dumper;
 use File::stat;
 $somedir = '/var/vob/icc_shantesh/';
 $file = $somedir."power.log";

 my ($gid) = getgrgid(stat($file)->gid);
 my ($uid) = getpwuid(stat($file)->uid);

 print "User Id : $uid Group Id : $gid";