Perl 定义的函数

描述

如果EXPR的值不是 undef，则此函数返回 true；如果未指定EXPR，则检查 $_ 的值。这可以与许多函数一起使用，以检测操作失败，因为如果出现问题，它们将返回 undef。简单的布尔测试无法区分 false、零、空字符串或字符串 .0.，它们都同样为 false。

如果EXPR是函数或函数引用，则如果已定义该函数，则返回 true。当用于整个数组和哈希表时，它并不总是产生直观的结果。如果指定了哈希元素，则如果已定义相应的 value，则返回 true，但不确定指定的 key 是否存在于哈希表中。

语法

以下是此函数的简单语法：

defined EXPR

defined

返回值

如果 EXPR 包含 undef，则此函数返回 0；如果 EXPR 包含有效值或引用，则返回 1。

示例

以下是显示其基本用法的示例代码：

#!/usr/bin/perl

$var1 = "This is defined";

if( defined($var1) ) {
   print "$var1\n";
}
if( defined($var2) ) {
   print "var2 is also defined\n";
} else {
   print "var2 is not defined\n";
}

执行上述代码后，将产生以下结果：

This is defined
var2 is not defined