From ef297ce2c65aead25b755f9cc3ed4b8705733299 Mon Sep 17 00:00:00 2001
From: Matthew Lemon <chaffinach+git@protonmail.ch>
Date: Thu, 28 Apr 2022 09:32:26 +0100
Subject: new script to create an expense category file for ledger

---
 ledgerscripts/get_categories.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 ledgerscripts/get_categories.pl

diff --git a/ledgerscripts/get_categories.pl b/ledgerscripts/get_categories.pl
new file mode 100644
index 0000000..fc4fa96
--- /dev/null
+++ b/ledgerscripts/get_categories.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+#
+# This groups a transaction description to an expense category
+# and prints to STDOUT to piping and or filtering elsewhere.
+#
+# The objective is for the output file to be used as a reference
+# for another script which applies expense categories to new
+# unprocessed budget files automatically.
+
+use strict;
+use warnings;
+
+local $/ = ""; # switch to paragraph mode (allow use of /m modifier below)
+
+while (<>) {
+    if (/\d{4}.*\* (.*)$/m) { print $1 . "@" };
+    if (/Expenses:(.*)£/) { print $1 . "\n" };
+}
-- 
cgit v1.2.3