Jak mogę uzyskać nazwę użytkownika wykonującego mój skrypt Perla?

Question

Mam skrypt, który musi wiedzieć, z jakiej nazwy użytkownika jest uruchamiany.

Po uruchomieniu go z powłoki, mogę łatwo użyć $ ENV {"USER"}, który jest dostarczany przez bash.

Ale podobno - to ten sam skrypt uruchamiany jest z crona, również przez bash - $ ENV {"USER"} nie jest zdefiniowany.

Oczywiście, mogę:

my $username = getpwuid($<); 

Ale to nie wyglądają ładnie - jest jakiś lepszy/ładniejszy sposób? Nie musi być niezależny od systemu, ponieważ skrypt jest przeznaczony do użytku osobistego i będzie działał tylko na Linuksie.

Answer 1

Zestawy crontab $LOGNAME, dzięki czemu można używać $ENV{"LOGNAME"}. $LOGNAME jest również domyślnie ustawiona w moim środowisku (nie sprawdzono, gdzie jest ustawiona), więc możesz użyć tylko $LOGNAME zamiast $USER.

Chociaż zgadzam się z hakerami, nie wiem, co jest nie tak z getpwuid.

Answer 2

Przepraszam, dlaczego to "nie wygląda ładnie"? To jest odpowiednie wywołanie systemowe do użycia. Jeśli chcesz wywołać program zewnętrzny (na przykład coś, czego możesz użyć również ze skryptu Bash), dostępne są narzędzia/usr/bin/id i/usr/bin/whoami.

Answer 3

Czy to wygląda ładniej?

use English qw(−no_match_vars); 

my $username = getpwuid $UID; 

Answer 4

Spróbuj znaleźć właściwą odpowiedź spośród kilku miejscach, pierwszy wygrywa:

my $username = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<);