たまにはGDBM使う

2018年にGDBM使う

perl標準モジュールにある
簡単なKVSならこれで

debianだと多分入ってるけど、libperl5.24が無い環境だとダメぽい

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(:5.10);
use utf8;
use GDBM_File ;

my $filename = "gdm";
my %hash;
tie %hash, 'GDBM_File', $filename, &GDBM_WRCREAT, 0640;
$hash{hoge} = "huga";
say "$_ => $hash{$_}" for keys %hash;