Question

How to get currently active user name with perl script on Mac OSX I use whoami but is came with

my $username = `whoami`;

请建议。

谢谢。

Answer 1

Use getlogin to get the login:

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

Else, use chomp as ikegami has suggested in his answer.

Answer 2

chomp( my $username = `whoami` );

Answer 3

遵约的另一个替代办法可能是使用定期表述:

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

Edit:

先前的条例只删除了在座头上发现的第一个新线,只去掉你可以使用的最后一行:

$username =~ s/
$//;

删除所有新路线,并首先使用:

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