Perl defined用法及代码示例

描述

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

如果 EXPR 是函数或函数引用，则如果函数已定义，则返回 true。当与整个数组和散列一起使用时，它不会总是产生直观的结果。如果指定了hash元素，如果已经定义了对应的值，则返回true，但不判断hash中是否存在指定的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