Perl: как мне вернуть undef в список?

Question

У меня есть небольшая проблема в Perl. В принципе, я делаю что-то вроде этого:

sub myFunction 
{ 
    return (&myOtherFnA(),&myOtherFnB(),&myOtherFnC()); 
} 
sub myOtherFnA() {return 'A';} 
sub myOtherFnB() {return undef;} 
sub myOtherFnC() {return 'C';} 

моя проблема: когда myOtherFnB() возвращает UNDEF, я хочу список, который имеет UNDEF в качестве 2-го элемента. Но когда myOtherFnB() делает это, я просто получаю список из 2-х элементов: myOtherFnA() и myOtherFnC(). Я получаю:

('A', 'C')

, но я хочу получить:

('A', UNDEF, 'C')

Что синтаксис мне нужно использовать, чтобы остановить Perl от удаления return myOtherFnB() из списка, если он undef и на самом деле просто положить элемент undef в список?

Answer 1

Я не знаю, что заставляет вас думать, что вы не получаете undef в списке. Тем не менее, существует ряд проблем с кодом

• Не используйте амперсанд & при определении подпрограммы - это ошибка синтаксиса

• Не используйте амперсанд при вызове подпрограммы. Это не было необходимо с Perl 4 более двадцати лет назад

• Не используйте прототипы (круглые скобки после имени подпрограммы в определении), поскольку они не делают то, что вы думаете, и они предназначены для нечто специализированное

• не используйте заглавные буквы в локальных идентификаторов: они зарезервированы для глобальных идентификаторов, как имена пакетов

Это переписывание кода фиксирует ошибки синтаксиса и исправляет вышеуказанные проблемы. Как вы видите, второго элемент возвращаемого списка undef

use strict; 
use warnings; 

sub my_function { 
    return (
    my_other_function_a(), 
    my_other_function_b(), 
    my_other_function_c() 
); 
} 

sub my_other_function_a { 
    return 'A'; 
} 

sub my_other_function_b { 
    return undef; 
} 

sub my_other_function_c { 
    return 'C'; 
} 


use Data::Dump; 
dd [ my_function ]; 

выхода

["A", undef, "C"]