5 BEGIN { push @INC, '.' }
7 use open ':std' => ':utf8';
8 my $db = Shiar_Sheet::DB->connect;
13 if (my $lang = shift @ARGV) {
14 my %filter = (lang => $lang);
15 say pp({ $db->select('_word_ref w' => "ref, exportform(row(w.*))", \%filter)->map })
16 =~ s/\\x\{([0-9A-F]+)\}/chr hex $1/ger;
19 say pp { $db->select(_cat_words => "coalesce(id::text, ''), forms")->map };