tools/mkwordlist

   1 #!/usr/bin/env perl
   2 use 5.014;
   3 use warnings;
   4
   5 BEGIN { push @INC, '.' }
   6 use Shiar_Sheet::DB;
   7 use open ':std' => ':utf8';
   8 my $db = Shiar_Sheet::DB->connect;
   9
  10 say 'use utf8;';
  11
  12 use Data::Dump 'pp';
  13 say pp { $db->select(_cat_words => "coalesce(id::text, ''), forms")->map };