perlでDBMファイルを取り扱う

最近はtieという関数を使うらしい・・・


#!/usr/bin/perl
use feature qw(say);
use SDBM_File;
use Fcntl;
tie (%HA,'SDBM_File',"test",O_RDWR|O_CREATE,0644);
%HA=(one=>1,two=>2,three=>3);
while ( ($a,$b)=each %HA){
say "$a -> $b";
}
untie %HA;


参考リンク
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_bigdata.html
http://perldoc.jp/docs/perl/5.10.0/perltie.pod
http://www.ecopig.jp/comucale/dbm.htm
http://search.cpan.org/~nwclark/perl-5.8.9/ext/SDBM_File/SDBM_File.pm