tools/mkdigraphs-vim

   1 #!/bin/sh
   2 vim -e -cdigraphs -cq | perl -CSD -nE '
   3         BEGIN {
   4                 say "+{";
   5         }
   6                 say "q{$1} => $3," while /\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g;
   7         END {
   8                 say "}";
   9         }
  10 '