Perl defined()用法及代码示例

如果提供的变量“ VAR”的值不是undef值，则Perl中的Defined()返回true；如果未指定VAR，则它检查$_的值。它可以与许多函数一起使用来检测操作失败，因为如果出现问题，它们将返回undef。

如果VAR是一个函数或函数的引用，则如果已定义该函数，则返回true；否则，如果该函数不存在，则返回false。如果指定了哈希元素，则在定义了相应值的情况下返回true，但不会检查哈希中是否存在键

用法： defined(VAR)

参数:
要检查的VAR

返回:
如果VAR为undef，则返回0；如果VAR包含值，则返回1。

范例1：

#!/usr/bin/perl 
  
# Defining a variable 
$X = "X is defined"; 
  
# Checking for existence of $X  
# with defined() function 
if(defined($X))  
{ 
    print "$X\n"; 
} 
  
# Checking for existence of $Y  
# with defined() function 
if(defined($Y))  
{ 
    print "Y is also defined\n"; 
}  
else
{ 
    print "Y is not defined\n"; 
}

输出：

X is defined
Y is not defined

范例2：

#!/usr/bin/perl 
  
# Defining a function 
sub X 
{ 
      
    # Defining a variable 
    $VAR = 20; 
} 
  
# Checking for existence of $X  
# with defined() function 
if(defined(X))  
{ 
    print "Function Exists\n"; 
} 
  
# Checking for existence of $Y  
# with defined() function 
if(defined($Y))  
{ 
    print "Y is also defined\n"; 
}  
else
{ 
    print "Y is not defined\n"; 
}

输出：

Function Exists
Y is not defined

相关用法

注：本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | defined() Function。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。