Использование определенного/undef в Perl

Question

Я планирую передать две переменные функции perl, одна из которых может быть необязательной. Я пытаюсь проверить, определен ли второй, или нет, но он работает неправильно. Когда я вызывал функцию как myFunction (18), она предполагает, что переменная $ optional определена и переходит к инструкции else. Но в инструкции else, когда обращается к переменной $ option, она выдает «неинициализированную» ошибку. Это точно противоположно тому, что я ожидал. Любая помощь приветствуется.

sub myFunction { 
    my ($length, $optional) = (@_); 
    if(undef($optional) 
    { 
    more code.. 
    } 
    else 
    { 
    more code... 
    } 
} 

myFunction(18) 

Answer 1

Правильная функция: defined. undef undefire $optional. То, что вы хотите сделать что-то вроде этого:

sub myFunction { 
    my($length, $optional) = @_; 
    if(! defined $optional) { 
     # Do whatever needs to be done if $optional isn't defined. 
    } 
    else { 
     # Do whatever can be done if $optional *is* defined. 
    } 
} 

Другой способ борьбы с ним (особенно Perl 5.10+) является использование «определено или» оператор, //, как это:

sub MyFunc { 
    my $length = shift; 
    my $optional = shift // 'Default Value'; 
    # Do your stuff here. 
} 

То, что это делает, определяет, определено ли возвращаемое значение shift @_. Поскольку вы уже вызвали сдвиг один раз, мы теперь тестируем второй параметр. Если он определен, присвойте значение $optional. Если он не определен, назначьте 'Default Value' на номер $optional. Конечно, вы должны придумать свой собственный нормальный дефолт.

Если вы застряли в темные времена предварительного Perl 5.10, вы могли бы сделать то же самое с:

my $optional = shift; 
$optional = defined $optional ? $optional : 'Default value'; 

... или ...

my $length = shift; 
my $optional = defined($_[0]) ? shift : 'Default value'; 

В любом случае, Я часто предпочитаю иметь нормальный стандарт, а не полностью отдельный путь потока управления. Это часто хороший способ упростить код.

Answer 2

my $optional = defined($_[0]) ? shift : 'Default value'; 

Это опасный код, поскольку он лишь сдвигает от параметра, если определено, если у вас есть третий параметр, это будет получить запутаны, когда вы звоните

MyFunc(10, undef, 20)