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