getlogin

`getlogin'

(もしあれば)`/etc/utmp' から、現在の login を読んで返す。 ヌルの場合は、getpwuid を使うこと。

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

See section システムファイルからデータを得る関数.