Wie bekomme ich den aktuellen Benutzer in Perl auf tragbare Weise?

Question

Wie erhält man den aktuellen Benutzer auf tragbare Weise?

Dies scheint wie eine FAQ, aber perlport spricht nicht darüber, vielleicht weil einige seltsame Systeme nicht das Konzept der "Benutzer" haben mit zu sein? Bleiben wir jedoch bei * nix und Windows.

getpwuid($>) ist nicht unter Windows implementiert.

$ENV{USER} || $ENV{USERNAME} scheint finicky.

http://search.cpan.org nicht viel gedreht.

Answer 1

getlogin:

Dies implementiert die C-Library-Funktion mit dem gleichen Namen, die auf den meisten Systemen die aktuelle Login kehrt von/etc/utmp, falls vorhanden. Wenn null, benutze "getpwuid".

$login = getlogin || getpwuid($<) || "Kilroy"; 

Nicht "getlogin" für die Authentifizierung betrachten: es ist nicht so sicher wie "getpwuid".

Sie können auch versuchen || -ing dies mit POSIX::cuserid() und Win32::LoginName().

Answer 2

Win32::LoginName() kann unter Windows verwendet werden, um den Benutzernamen abzurufen (ohne den Domain-Namen, es kann so vieldeutig sein):

use Win32; 
my $username = Win32::LoginName; 

Win32::pwent implementiert getpwuid() und andere Funktionen, um die Benutzer-Datenbank abzufragen. Leider konnte es nicht auf meinem StrawberryPerl 5.12 installiert werden.