что это? ['Y', 'N'], если (uc ($ ENV {USERNAME}) = ~/$ super_users/i)

Question

Я отслеживаю программу, которая не принадлежит мне. Что означает приведенное ниже выражение:

get_input(
    \$args_100{env}, 
    "\n\tAre these reports running out of the TEST environment (Y\/N)?", 
    0, 
    'N', 
    '', 
    ['Y','N'] 
) if(uc($ENV{USERNAME}) =~ /$super_users/i) ; 

Я понимаю, если заявление, но раньше, если?

Answer 1

Это постфикс, если обозначение. См. Statement Modifiers in perlsyn. Это эквивалентно

if (uc($ENV{USERNAME}) =~ /$super_users/i) { 
    get_input(\$args_100{env}, 
     "\n\tAre these reports running out of the TEST environment (Y\/N) ?", 
     0, 'N','',['Y','N']); 
} 

Answer 2

Короткий ответ, что ['Y','N'] создает массив из двух односимвольных строк, "Y" и "N", и возвращает ссылку на этот массив. Эта ссылка передается в качестве шестого и последнего параметра на звонок get_input

get_input(
    \$args_100{env}, 
    "\n\tAre these reports running out of the TEST environment (Y\/N)?", 
    0, 
    'N', 
    '', 
    ['Y','N'] 
) if(uc($ENV{USERNAME}) =~ /$super_users/i) ;