Почему функция не работает?

Question

У меня есть кусок кода, который не работает, поскольку я ожидаю, что он сработает. В основном определенная функция не работает.

@jobs = qw[job1 undef job2]; 
if(defined($jobs[1])) { 
    print "Job 1 is defined"; 
} 

я получить выход

Job 1 is defined 

явно $jobs[1] является undef. Что мне не хватает?

Answer 1

Поскольку вы используете qw, ваш код эквивалентен:

@jobs = ("job1", "undef", "job2"); 

Так $jobs[1] является строка"undef", которая не является такой же, как undef и, следовательно, поведение.

Если вы хотите вторую работу, чтобы быть undef вы можете сделать:

@jobs = ("job1", undef, "job2"); 

AFAIK вы не можете получить это сделано с помощью qw.