perl - Perl定数配列

Question

use constant {
    COLUMNS => qw/ TEST1 TEST2 TEST3 /,
}

Perl で定数パッケージを使用して配列を格納できますか?

のような配列を使用しようとするとmy @attr = (COLUMNS);、値が含まれません。

Answer 1

a+を使用して、それが定数であることを示します。

use constant {
  COLUMNS => [qw/ TEST1 TEST2 TEST3 /],
};

print @{+COLUMNS};

これ+は、定数が実際には定数であり、裸の単語ではないことをインタプリタに示すヒントです。詳細については、この返信を参照してください。