Comment puis-je obtenir l'utilisateur actuel dans Perl de manière portable?
Comment on obtient l'utilisateur actuel dans un portable?
Ce qui semble être une FAQ, mais perlport n'en parle pas, peut-être parce que certains impairs systèmes n'ont pas la notion de "utilisateur" pour être avec? Cependant, nous allons coller à *nix et Windows.
getpwuid($>)
n'est pas implémenté dans Windows.
$ENV{USER} || $ENV{USERNAME}
semble capricieux.
http://search.cpan.org n'en a pas beaucoup.
source d'informationauteur Dan Dascalescu
Vous devez vous connecter pour publier un commentaire.
getlogin:
Vous pouvez également essayer d' ||-ing cela avec POSIX::cuserid() et Win32::Identifiant De Connexion().
Win32::Identifiant De Connexion() peut être utilisé sur Windows pour récupérer le nom d'utilisateur (sans le nom de domaine, de sorte qu'il peut être ambiguë):
Win32::pwent implémente getpwuid() et autres fonctions de requête de la base de données utilisateur. Malheureusement, il n'a pas l'installer sur mon StrawberryPerl 5.12.