私もやってみることにした

% ruby -pe 'gsub(/^.+;| .+$/,"")' ~/.zsh_history | sort | uniq -c | sort -r | head -20
    957 lv
    851 cd
    618 ls
    561 svn
    324 grep
    303 rm
    301 make
    179 vi
    147 mv
    138 kill
    130 ln
    123 sudo
    123 man
    120 cp
    107 python
    105 sv
    102 \
     98 ps
     96
     94 mkchdir

なんか微妙におかしいような。あと私はプログラマじゃないというのが浮き彫りに!
若干補足しておくと

1. メインは emacs です
2. sv は runit のサービス管理コマンドです
3. mkchdir は mkdir -p $1 && cd $1 です

% perl -pe 's/ .+$|^[^;]+;//g' ~/.zsh_history | sort | uniq -c | sort -r | head -20
    958 lv
    851 cd
    620 ls
    562 svn
    324 grep
    303 rm
    301 make
    179 vi
    147 mv
    138 kill
    130 ln
    123 sudo
    123 man
    120 cp
    110 perl
    108 python
    105 sv
     98 ps
     94 mkchdir
     86 \

なんにもない行がリストされるのが気になったからちょっと変えてみたら
Perl の順位が上がってきた…あれ?