在Perl中通过登录脚本查找目录服务用户的名称

我用Perl编写了一个登录脚本，它必须在MacOSX客户端上运行，并记录登录的目录服务用户名

---

我试过使用

getlogin（）

，

getpuid（$你能用
last
吗？登录名和持续时间已经在
wtmp
文件中了。我认为你不需要自己记录它们。
你是在说脚本吗？如果是，它会作为参数传递用户名，所以
$ARGV[0]
应该是您所需要的。
您好，是的，这是一个loginhook脚本。但问题是该脚本不在客户端计算机上。它在服务器上，在工作组管理器下选择。如何传递$ARGV[0]从那里开始？脚本在服务器上定义，但实际上在客户端执行。是的，您是正确的。这是我的确切设置。在工作组管理器中，在计算机组首选项下，我选择了我的登录脚本。我必须从那里传递任何内容吗？如果是，howHi.Last和getlogin（）两者都提供最后一个登录的用户。这是一个Loginhook脚本