Code for the most part comes from: http://unix.stackexchange.com/questions/129159/record-every-keystroke-and-store-in-a-file
I added the timestamp with hires timing. Log as DKVP, the default format for Miller.
This is a nice data source for something like Exist, which supports a keystrokes attribute now.
| #!/bin/bash | |
| xinput test-xi2 --root | perl -MTime::HiRes=time -lne ' | |
| BEGIN{$"=","; | |
| select((select(STDOUT),$|=1)[0]); | |
| open X, "-|", "xmodmap -pke"; | |
| while (<X>) {$k{$1}=$2 if /^keycode\s+(\d+) = (\w+)/} | |
| open X, "-|", "xmodmap -pm"; <X>;<X>; | |
| while (<X>) {if (/^(\w+)\s+(\w*)/){($k=$2)=~s/_[LR]$//;$m[$i++]=$k||$1}} | |
| close X; | |
| } | |
| $time = time(); | |
| if (/^EVENT type.*\((.*)\)/) {$e = $1} | |
| elsif (/detail: (\d+)/) {$d=$1} | |
| elsif (/modifiers:.*effective: (.*)/) { | |
| $m=$1; | |
| if ($e =~ /^Key/){ | |
| my @mods; | |
| for (0..$#m) {push @mods, $m[$_] if (hex($m) & (1<<$_))} | |
| print "time=$time,event=$e,detail=$d,key=$k{$d},modbits=$m,mods=@mods" | |
| } | |
| }' |