getlogin
返回用户的名称,如系统函数getlogin()。在Windows环境下使用Win32::LoginName()函数代替。
undef - 失败时
用户登陆用的名字
试试以下例子:
#!/usr/bin/perl $login = getlogin || getpwuid($<) || "TutorialsPoint"; print "Login ID is $login\n";