Как установить значение переменной на ноль в Perl?

Question

Я нашел в некоторых примерах так называемый метод конструктора new, содержащий инициализацию для значений свойств класса (пакета), например:

my $self = {
    _firstName => shift,
    _lastName  => shift,
    _ssn       => shift,
};

Я знаю, что смещение - это функция, но присваивание, указанное выше, устанавливает свойства в null?

Answer 1

shift возвращает неопределенное значение, если в массиве @_ нет элементов http://perldoc.perl.org/functions/shift.html

Вы можете проверить это, используя defined http://perldoc.perl.org/functions/defined.html

Answer 2

Еще один простой способ:

my $variable = undef;