Help for this page

Select Code to Download

Select or download this

       getlogin
               This implements the C library function of the same name
+, which
...
               any.  If null, use "getpwuid".
 
                   $login = getlogin || getpwuid($<) || "Kilroy";

Select or download this

 perl -e 'print getlogin || getpwuid($<)'
lanx