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 
perl_function_references.htm