git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
word: change directory name of 3:2 thumbnails
[sheet.git]
/
tools
/
mkwordlist
diff --git
a/tools/mkwordlist
b/tools/mkwordlist
index 78859b4a09cb2a0cb48dd39c5f7a1edddd90a5ca..2e38a8d45ad34f1078db74b93ba5175d5b35121f 100755
(executable)
--- a/
tools/mkwordlist
+++ b/
tools/mkwordlist
@@
-13,7
+13,7
@@
use Data::Dump 'pp';
my %rows;
if (my $lang = shift @ARGV) {
my %filter = (lang => $lang);
my %rows;
if (my $lang = shift @ARGV) {
my %filter = (lang => $lang);
- my $cols = "ref,
id, prio, array_to_string(form || alt, '/')
";
+ my $cols = "ref,
array_to_string(form || alt, '/'), prio, id, cat
";
%rows = $db->select(_word_ref => $cols, \%filter)->map_arrays;
say pp \%rows
=~ s/\\x\{([0-9A-F]+)\}/chr hex $1/ger;
%rows = $db->select(_word_ref => $cols, \%filter)->map_arrays;
say pp \%rows
=~ s/\\x\{([0-9A-F]+)\}/chr hex $1/ger;