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