bin/kv

Mon, 03 Jun 2024 22:22:16 -0500

author
Meredith Howard <mhoward@roomag.org>
date
Mon, 03 Jun 2024 22:22:16 -0500
changeset 1174
753971334371
parent 1142
dd4f69be5e32
permissions
-rwxr-xr-x

Switch neodev -> lazydev

1115
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
1 #!/usr/bin/env perl
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
2 use v5.32;
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
3 use Fcntl;
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
4 use AnyDBM_File;
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
5
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
6 my ($filename, $method, @args) = @ARGV;
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
7
1142
dd4f69be5e32 Add perl ver to sdbm filename due to breakage
Meredith Howard <mhoward@roomag.org>
parents: 1115
diff changeset
8 $filename .= ".$]";
dd4f69be5e32 Add perl ver to sdbm filename due to breakage
Meredith Howard <mhoward@roomag.org>
parents: 1115
diff changeset
9
1115
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
10 tie my %h, 'AnyDBM_File', $filename, O_RDWR|O_CREAT, 0660
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
11 or die "tie $filename: $!";
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
12
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
13 $, = "\n";
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
14
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
15 say main->can($method)->(@args);
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
16
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
17 sub get { $h{+shift} }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
18 sub set { $h{$_[0]} = $_[1] and exit }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
19 sub del { delete $h{+shift} }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
20
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
21 sub touch { $h{+shift} = time and exit }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
22 sub age { time - $h{+shift} }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
23 sub age_days { int(age(shift) / 86_400) }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
24 sub age_days_gt { exit 0+!(age_days(shift) > shift) }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
25
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
26 sub keys { keys %h }
15ca9da8cd59 use distinct db for update checks
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
27 sub dump { map { "$_ = $h{$_}" } keys %h }

mercurial