grep username со скриптом perl в OSX

Question

Как получить действующее имя пользователя с помощью Perl-скрипта на Mac OSX. Я использую 'whoami', но поставляется с \ n

my $username = `whoami`;

, пожалуйста, предложите.

спасибо.

Answer 1

Используйте getlogin для получения логина:

$username = getlogin || getpwuid($<);

Иначе, используйте chomp как икегами предложил в своем ответе .

Answer 2

chomp( my $username = `whoami` );

chomp

Answer 3

Другой альтернативой chomp может быть использование регулярных выражений:

my $username = `whoami`
$username =~ s/\n//

Edit:

Предыдущее регулярное выражение удаляет только первую новую строку, найденную в строке, чтобы удалить только последнюю, которую вы можете использовать:

$username =~ s/\n$//;

Чтобы удалить все новые строки в конце и начале, вы используете:

$username =~ s/^\n+//;
$username =~ s/\n+$//;