getlogin
返回用戶的名稱,如係統函數getlogin()。在Windows環境下使用Win32::LoginName()函數代替。
undef - 失敗時
用戶登陸用的名字
試試以下例子:
#!/usr/bin/perl $login = getlogin || getpwuid($<) || "TutorialsPoint"; print "Login ID is $login\n";