Html 如果不尽快清理的话。一些建议： 增加使用严格和使用警告然后修复它们揭示的所有问题 使用而不是调用外部date命令 将主机名放入数据库表中，并在SQL中针对该表进行连接

停止使用

绑定列

。执行以下操作更具可读性：

while (my @row = $sth->fetchrow_array) {
   my (undef, $currentuser, $lastlogin, $host_name) = @row;

为您的HTML输出使用

---

其中nullif（hosts.currentuser，''）不为NULL，hosts.host_名称在（'1408BC204AP1'，'1408scg073p2'，'1408wthr114p2'，等等）

为什么不在中使用

hosts.host_名称（…

而不是long或？我想这可能会更好，我认为我们最初认为这种方法更容易维护，因为我们必须跟踪3000台计算机，列表可能会很长。即使使用（…）中的

，您也可以每行缩进一个主机名

，因此它应该更具可读性。当然，最可维护的选项是将主机名放入数据库表中，并与之关联。

其中nullif（hosts.currentuser''）不为NULL，hosts.host_name在（'1408bcc204ap1'，'1408scg073p2'，'1408wthr114p2'，等等）

为什么不在中使用

hosts.host_name（…

而不是long或？我想这可能会更好，我认为我们最初认为这种方法更容易维护，因为我们必须跟踪3000台计算机，列表可能会很长。即使使用（…）中的

，您也可以每行缩进一个主机名

，因此它应该更具可读性。当然，最可维护的选项是将主机名放在数据库表中，并根据该表进行连接。

while($sth->fetch()) {
    next unless defined $currentuser;

    # Rest of your existing code
}

while (my @row = $sth->fetchrow_array) {
   my (undef, $currentuser, $lastlogin, $host_name) = @row;