bin/kv

Mon, 01 Jan 2024 14:47:38 -0600

author
Meredith Howard <mhoward@roomag.org>
date
Mon, 01 Jan 2024 14:47:38 -0600
changeset 1144
dc1def95331f
parent 1142
dd4f69be5e32
permissions
-rwxr-xr-x

skip luasnip/jsregexp build on windows (oops)

#!/usr/bin/env perl
use v5.32;
use Fcntl;
use AnyDBM_File;

my ($filename, $method, @args) = @ARGV;

$filename .= ".$]";

tie my %h, 'AnyDBM_File', $filename, O_RDWR|O_CREAT, 0660
  or die "tie $filename: $!";

$, = "\n";

say main->can($method)->(@args);

sub get { $h{+shift} }
sub set { $h{$_[0]} = $_[1] and exit }
sub del { delete $h{+shift} }

sub touch { $h{+shift} = time and exit }
sub age { time - $h{+shift} }
sub age_days { int(age(shift) / 86_400) }
sub age_days_gt { exit 0+!(age_days(shift) > shift) }

sub keys { keys %h }
sub dump { map { "$_ = $h{$_}" } keys %h }

mercurial