word: move inline make scripts to distinct tools

[sheet.git] / tools / lastword

diff --git a/tools/lastword b/tools/lastword
new file mode 100755 (executable)
index 0000000..b8e94f9
--- /dev/null
+++ b/tools/lastword
@@ -0,0 +1,9 @@
+#!/usr/bin/env -S perl -ni
+use 5.014;
+use warnings;
+use lib '.';
+use Shiar_Sheet::DB;
+
+my $db = Shiar_Sheet::DB->connect;
+my $query = $db->select(word => 'max(updated)', \['updated > ?', $_]);
+say ($query->list or exit 1);