14.7 永続的なデータ

プログラムを一度呼び出してから、次に呼び出すまでの間、変数が値を維持できるようにしたい。

• MLDBMを使用して、変数の値を保存する

use MLDBM "DB_File";

my ($VARIABLE1, $VARIABLE2);
my $Persistent_Store = "/projects/foo/data";
BEGIN {
  my %data;
  tie(%data, "MLDBM", $Persistent_Store)
    or die "Can't tie to $Persistent_Store : $!"
  $VARIABLE1 = $data{VARIABLE1};
  $VARIABLE2 = $data{VARIABLE2};
  # ...
  untie %data;
}
END {
  my %data;
  tie(%data, "MLDBM", $Persistent_Store) 
    or die "Can't tie to $Persistent_Store : $!";
  $data{VARIABLE1} = $VARIABLE1;
  $data{VARIABLE2} = $VARIABLE2;
  # ...
  untie %data;
}