Как мне получить текущего пользователя в Perl портативным способом?

Question

Как получить текущего пользователя портативным способом?

Это похоже на FAQ, но perlport не говорит об этом, может быть, потому что некоторые странные системы не имеют понятия "пользователь", чтобы быть с Однако давайте придерживаться * nix и Windows.

getpwuid($>) не реализовано в Windows.

$ENV{USER} || $ENV{USERNAME} кажется привередливым.

http://search.cpan.org особо не появлялся.

Answer 1

getlogin :

Это реализует функцию библиотеки C с тем же именем, которая в большинстве систем возвращает текущий логин из / etc / utmp, если таковой имеется.Если ноль, используйте «getpwuid».

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

Не рассматривайте «getlogin» для аутентификации: это не так безопасно, как «getpwuid».

Вы также можете попробовать || -ing это с POSIX :: cuserid () и Win32 :: LoginName ().

Answer 2

Win32 :: LoginName () может использоваться в Windows для получения имени пользователя (без имени домена, поэтому оно может быть неоднозначным):

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

Win32 :: pwent реализует getpwuid () и другие функции для запроса базы данных пользователей.К сожалению, его не удалось установить на мой StrawberryPerl 5.12.