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 ofX 
# 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 ofX 
# 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