在OSX中使用perl脚本的grep用户名

Question

如何在Mac OSX上使用perl脚本获取当前活动的用户名 我使用'whoami'但是附带\ n

my $username = `whoami`;

请建议。

谢谢。

Answer 1

chomp( my $username = `whoami` );

chomp

Answer 2

使用getlogin获取登录信息：

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

否则，请chomp使用ikegami answer建议使用{{3}}。

Answer 3

chomp的另一种选择可能是使用正则表达式：

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

编辑：

以前的正则表达式只删除它在字符串中找到的第一个新行，只删除你可以使用的最后一行：

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

要删除结尾和开头的所有新行，请使用：

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