Perl getlogin 函数
描述
该函数返回由系统函数 getlogin() 发现的用户名。 在 Windows 下，请改用 Win32::LoginName( ) 函数。
语法
以下是此函数的简单语法 −
getlogin
返回值
此函数在失败时返回 undef，在成功时返回用户的登录名。
示例
以下是显示其基本用法的示例代码 −
#!/usr/bin/perl $login = getlogin || getpwuid($<) || "TutorialsPoint"; print "Login ID is $login\n";
执行上述代码时，会产生以下结果 −
Login ID is apache
