getlogin

此函数实现了同名 C 库函数，该函数在大多数系统上从 /etc/utmp 返回当前登录名（如果有）。如果返回空字符串，请使用 getpwuid。

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

不要将 getlogin 用于身份验证：它不像 getpwuid 那样安全。

可移植性问题："getlogin" in perlport.