内核编译错误：Can't use 'defined(@array)' (Maybe you should just omit the defined()?) at kernel/timeconst.pl line 373

这个错误是由于使用了 defined(@array) 这个语句造成的。在 Perl 中，defined() 函数只能用于标量值（例如字符串或数字），而不能用于数组或哈希表等复合类型。

您可以修改代码，将 defined(@array) 改为 scalar(@array) > 0 或者 @array 等价于 scalar(@array)。这样就可以避免出现上述错误。

例如：

if (@array) {
    # do something
}

修改为：

if (scalar(@array) > 0) {
    # do something
}

之前修改为：

if (defined(@array) > 0) {
    # do something
}

但修改为defined效果分Perl上下文而定。

defined：如果EXPR的值不是undef值，则此函数返回true；如果未指定EXPR，则检查$_的值。它可以与许多功能一起使用来检测操作失败，因为如果出现问题，它们将返回undef。简单的布尔测试不会区分假，零，空字符串或字符串.0。如果EXPR是函数或函数引用，则在定义函数后返回true。当与整个数组和哈希一起使用时，它不会总是产生直观的结果。如果指定了哈希元素，则如果已定义了相应的值，则返回true，但不会确定哈希中是否存在指定的键。如果EXPR包含undef，则此函数返回0；如果EXPR包含有效值或引用，则此函数返回1。

scalar：此函数强制EXPR的评估在标量上下文中进行，即使它通常可以在列表上下文中运行也是如此。此函数返回标量。

详细说明：
Perl是一种上下文敏感的语言，这意味着表达式的行为可能会根据其所处的上下文而变化。在Perl中，有两种主要的上下文：标量上下文和列表上下文。

标量上下文：当表达式的结果预期是单个值时，它处于标量上下文中。
列表上下文：当表达式的结果预期是一个列表（一系列值）时，它处于列表上下文中。
scalar函数强制将其参数的上下文转换为标量上下文。这意味着无论其参数在列表上下文中的表现如何，当它被scalar函数处理时，它会表现为在标量上下文中的形式。

defined函数用于检查一个变量是否已经被赋予一个具体的值。在Perl中，所有变量默认情况下都是未定义的，其值为特殊值undef。
已定义（Defined）：如果一个变量被赋予了一个具体的值（包括数字0，空字符串等），它被认为是“已定义”的。
未定义（Undefined）：如果一个变量没有被赋值，或者被显式地赋予了undef，它被认为是“未定义”的。

总结来说，@array默认列表上下文，使用scalar来强制表达式在标量上下文中进行评估；而使用defined来检查变量是否已经被初始化或赋值。