Как узнать имя владельца файла?

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;

Answer 2

#!/usr/bin/perl -w

my @sb = stat "/etc/passwd";
my $userid = $sb[4];
my @pwent = getpwuid $userid;
my $username = $pwent[0];

print "/etc/passwd is owned by $username\n";


$ /tmp/foo.pl 
/etc/passwd is owned by root

Руководство perldoc perlfunc содержит много информации об этих семействах функций.