Jak uzyskać dostęp do bieżącego użytkownika w Perlu w sposób przenośny?

Question

Jak uzyskać dostęp do bieżącego użytkownika w sposób przenośny?

Wydaje się, że jest to najczęściej zadawane pytanie, ale perlport o tym nie mówi, może dlatego, że niektóre dziwne systemy nie mają pojęcia "użytkownik" do bycia z nim? Jednak trzymajmy się * nix i Windows.

getpwuid($>) nie jest zaimplementowany w systemie Windows.

$ENV{USER} || $ENV{USERNAME} wydaje się być wybredny.

http://search.cpan.org nie pojawił się zbyt wiele.

Answer 1

getlogin:

ten realizuje funkcję biblioteki C o tej samej nazwie, który w większości systemów Zwraca bieżącą logowanie z/etc/utmp, jeśli w ogóle. Jeśli null, użyj "getpwuid".

$login = getlogin || getpwuid($<) || "Kilroy"; 

Nie uważaj "getlogin" za uwierzytelnienie: nie jest tak bezpieczny jak "getpwuid".

Możesz także spróbować || -ing this z POSIX::cuserid() i Win32::LoginName().

Answer 2

Win32::LoginName() mogą być wykorzystane w systemie Windows, aby odzyskać nazwę użytkownika (bez nazwy domeny, więc może być niejednoznaczne):

use Win32; 
my $username = Win32::LoginName; 

Win32::pwent realizuje getpwuid() i inne funkcje do przeszukiwania bazy danych użytkownika. Niestety, nie udało mi się zainstalować na moim StrawberryPerl 5.12.