weblog of key_amb

主にIT関連の技術メモ

Data::Lock

Perl

Perlで定数を使う方法はいくつかある。
よく知られているのは constant, ReadOnlyだが、Data::Lockというものは変数を一時的に書き込み不可にするそうな。

use Data::Lock qw(dlock);

dlock my $ROWS = 10 ;
dlock my @DATA = (10, 20, 30);

print "row is $ROWS.";

for my $item (@DATA) {
    print $item;
}