X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1dee8e5f63eb2019ae3492931cd999593b63991d..254f395a864dea55080e1ce4f9f0f3dab55af475:/tools/wordpairs?ds=sidebyside

diff --git a/tools/wordpairs b/tools/wordpairs
new file mode 100755
index 0000000..9ba87f4
--- /dev/null
+++ b/tools/wordpairs
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use 5.014;
+use warnings;
+use lib '.';
+use Shiar_Sheet::DB;
+use Data::Dump 'pp';
+
+my $db = Shiar_Sheet::DB->connect;
+my $query = $db->select(
+	'word w JOIN word a ON w.id = a.ref' => 'w.id, a.id',
+	{'a.lang' => undef}
+);
+say pp($query->map or exit 1);