定数を使う2

---

　Readonlyモジュールを使います。

use Readonly;

Readonly my $AAA => 'aaa';
Readonly my $BBB => 100;
Readonly my $CCC => 24 * 60 * 60;
Readonly my $YYY => [100, 200, 300];
Readonly my $ZZZ => {a => 'A', b => 'B'};

print "$AAA\n";
print $BBB * 10, "\n";
print "$CCC\n";
print $YYY->[1], "\n";
print $ZZZ->{a}, "\n";

　use constantとは異なり、ダブルクォートの中やヒアドキュメントの中でも使うことができる分便利です。

---

関連項目

・定数を使う
・列挙型