perl函數說明(getlogin)

• getlogin

如果有的話，這個函數返回當前登錄名。在 Unix 系統上，它是從 utmp(5) 文件裏讀取的。如果它返回假，那麼用 getpwuid 取代。比如：

   $login = getlogin() || (getpwuid($<)) [0] || "Intruder!!";