perl - 从 perl 脚本中提取用户名

Question

我想在脚本本身中提取用户名，执行 perl 脚本。

我正在执行 whoami来自 perl 的 linux 命令如下，它工作得很好。

my $whoami = `whoami`;
chomp $whoami;
print $whoami;

我的目的是避免从 perl 脚本调用系统命令。因此，我正在寻找 仅限 Perl 解决方案。我想知道是否有任何可用的 CPAN 模块可以提取系统信息。

您在这方面的建议将不胜感激。

Answer 1

perl -le 'print scalar getpwuid $<'