Data::Lock
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; }
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; }