Perl | defined () Функция

Опубликовано: 31 Марта, 2022

Defined () в Perl возвращает истину, если предоставленная переменная 'VAR' имеет значение, отличное от значения undef, или проверяет значение $ _, если VAR не указана. Это можно использовать со многими функциями для обнаружения сбоя операции, поскольку они возвращают undef, если возникла проблема.

Если VAR является функцией или ссылкой на функцию, он возвращает true, если функция была определена, иначе он вернет false, если функция не существует. Если указан элемент хэша, он возвращает истину, если соответствующее значение было определено, но не проверяет наличие ключа в хеше.

Syntax: defined(VAR)

Parameters:
VAR which is to be checked

Returns:
Returns 0 if VAR is undef and 1 if VAR contains a value

Example 1:

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

Выход:

X определяется
Y не определено

 
Example 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 ";
}
  
# Checking for existence of $Y 
# with defined() function
if(defined($Y)) 
{
    print "Y is also defined ";
} 
else
{
    print "Y is not defined ";
}

Выход:

Функция существует
Y не определено

РЕКОМЕНДУЕМЫЕ СТАТЬИ