Perl defined 函数
描述
如果 EXPR 的值不是 undef 值，则此函数返回 true；如果未指定 EXPR，则检查 $_ 的值。 这可以与许多函数一起使用来检测操作失败，因为如果出现问题，它们会返回 undef。 一个简单的布尔测试不区分 false、零、空字符串或字符串 .0.，它们都同样为 false。
如果 EXPR 是函数或函数引用，则如果函数已定义，则返回 true。 当与整个数组和散列一起使用时，它不会总是产生直观的结果。 如果指定了散列元素，如果对应的值已经定义则返回true，但不判断指定的键是否存在于散列中。
语法
以下是此函数的简单语法 −
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
