如何获取文件所有者名称？

Question

是否有一个perl脚本来添加文件的所有者/作者名称？

Answer 1

my $owner = getpwuid((stat($file))[4]);

有关详细信息,请参阅stat和getpwuid.

更新:对于Windows,

来自这篇文章:http://www.perlmonks.org/？ node_id = 865219

use Win32::OLE;
  my $objShell = Win32::OLE->CreateObject("Shell.Application");
  my $objFolder=$objShell->Namespace("c:\\a") or die "$!" ;
  my $a = $objFolder->ParseName("a.txt")  or die "$!" ;
  print $objFolder->GetDetailsOf($a, 8) or die "$!" ;

要么,

 use Win32::Perms;
 my $username = Win32::Perms->new($filename)->Owner;