Làm cách nào để có được người dùng hiện tại trong Perl theo cách di động?

Question

Làm cách nào để người dùng hiện tại theo cách di động?

Điều này có vẻ giống như Câu hỏi thường gặp nhưng perlport không nói về điều đó, có thể vì một số hệ thống lẻ không có khái niệm "người dùng" để ở cùng? Tuy nhiên, hãy dính vào * nix và Windows.

getpwuid($>) không được triển khai trên Windows.

$ENV{USER} || $ENV{USERNAME} có vẻ khó xử.

http://search.cpan.org không tăng lên nhiều.

Answer 1

getlogin:

này thực hiện các chức năng thư viện C cùng tên, mà trên hầu hết các hệ thống trả về đăng nhập hiện tại từ/etc/utmp, nếu có. Nếu null, sử dụng "getpwuid".

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

Đừng xem "getlogin" để xác thực: nó không an toàn như "getpwuid".

Bạn cũng có thể thử || -ing this with POSIX::cuserid() và Win32::LoginName().

Answer 2

Win32::LoginName() có thể được sử dụng trên Windows để lấy tên người dùng (không có tên miền, vì vậy nó có thể là mơ hồ):

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

Win32::pwent thực hiện getpwuid() và các tính năng khác để truy vấn cơ sở dữ liệu người dùng. Thật không may, nó không thể cài đặt trên StrawberryPerl 5.12 của tôi.