Условно экземпляр нового массива Perl

Question

Изначально мой код выглядел так:

my @departments = @{$opts->{'d'}} if $opts->{'d'}; 

Я хотел реорганизовать заявление в линии if согласно Perl Best Practices, так что теперь у меня есть следующий код:

my @departments; 
if($opts->{'d'}) 
{ 
    @departments = @{$opts->{'d'} }; 
} 

$opts - это просто хеш-ссылка, которая может иметь массив ref как значение ключа.

Я хотел бы сделать что-то вроде следующего, чтобы сохранить код на одной строке:

my @departments = $opts->{'d'} ? @{$opts->{'d'}} : undef; 

Но очевидно, что будет просто поставить один элемент в @departments со значением undef.

Причина я выполнить это действие таким образом, потому что позже я хочу, чтобы иметь возможность проверить

if(@departments) 
{ 
    my $department_string = join(q{,}, @departments); 
    $big_string . $department_string; 
} 

динамически добавлять в строку.

Answer 1

Выполнение этого:

my @departments = $opts->{'d'} ? @{$opts->{'d'}} : undef; 

такое же, как

my @departments = $opts->{'d'} ? @{$opts->{'d'}} : (undef); 

который, если $opts->{d} ложно назначит один элемент, undef, в массив @departments. Вам не нужен массив, содержащий один элемент. Вам нужен пустой массив.

Итак, что вы хотите сделать, это назначить пустой список @departments, например, так:

my @departments = $opts->{'d'} ? @{$opts->{'d'}} :(); 

одна вещь: Ваше название говорит «условно экземпляр нового массива Perl», и на самом деле то, что мы» повторное выполнение этого условно заполняет его. Он создается, когда вы говорите my @departments.

Answer 2

Этот результат в @departments устанавливается в пустой массив, если условие терпит неудачу.

my @departments = $opts->{'d'} ? @{$opts->{'d'}} :(); 

Answer 3

Я хотел бы использовать

my @departments = @{ $opts->{d}||[] };

Если $ выбирает -> {d} не существует, это не соответствует действительности, таким образом, Perl выглядит для правой стороны '||' и находит пустой массив, который затем переводится в пустой список.

На самом деле это не отличается от явной проверки с помощью if или '?' оператор, как приведенный выше ответ, но я нахожу его более ясным и менее отвлекающим для чтения в коде, тем более, что это только одна строка.

Рассмотрим альтернативный вариант:

$opts->{d} ||= []; 
my @departments = @{$opts->{d}}; 

Это будет первый набор пустой ссылкой на массив, затем отливали в виде массива, и будет в основном делать то же самое (если вы не хотели повторно бросить в массив, то этот метод позволит сэкономить вы неоднократно набираете || [].

Надеюсь, это поможет, я видел часто используемые мною обозначения для литья массивов/hashrefs (my %hash = %{ $hash||{} };), если не определено, было ли оно установлено.