tools: separate script to convert perl data to json

[sheet.git] / tools / mkjson

diff --git a/tools/mkjson b/tools/mkjson
new file mode 100755 (executable)
index 0000000..6a7d948
--- /dev/null
+++ b/tools/mkjson
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+use 5.012;
+use warnings;
+use JSON;
+
+my $data = do "./$ARGV[0]" or die $@;
+print JSON->new->utf8->canonical->encode($data);