【モダン推奨】Perlについての質問箱 50箱目

[933 デフォルトの名無しさん 2020/05/27(水) 01:33:03.79 ID:h9Mc4KsU]

use constant H => { a=>'AAA', b=>'BBB' };

foreach (keys %{H()}) {
print $_, "\n";
}