bash-history-length-json.bash

cat ~/.bash_history | \
  tr -d '\r' | \
  perl -pe '
    chomp;
    s/\\/\\\\/g;
    s/"/\\"/g;
    $_ = qq({\n  "length": ) . length($_) . qq(,\n  "command": ") . $_ . qq("\n}, );
  ' | \
  perl -pe 's/, $//' | \
  awk '
    BEGIN { print "[" }
    { print "  " $0 }
    END { print "]"}
  ' > command-length.json

example-result.json

[
  {
    "length": 62,
    "command": "git branch -d $(git branch -vv | grep gone | awk '{print $1}')"
  }, {
    "length": 79,
    "command": "git branch -d $(git branch -vv | grep gone | awk '{ print $1 }' | tr '\\n' ' ')"
  }, {
    "length": 104,
    "command": "git branch -d $(git branch -vv | grep -v 'origin/' | git branch -vv | awk '{ print $1 }' | tr '\\n' ' ')"
  }, {
    "length": 72,
    "command": "git branch -d $(git branch -vv | grep -v 'origin/' | awk '{ print $1 }')"
  }, {
    "length": 69,
    "command": "git branch -d $(git branch -vv | grep ': gone]' | awk '{ print $1 }')"
  }, {
    "length": 79,
    "command": "git branch -D $(git branch -vv | grep gone | awk '{ print $1 }' | tr '\\n' ' ')"
  }, {
    "length": 79,
    "command": "gir branch -d $(git branch -vv | grep gone | awk '{ print $1 }' | tr '\\n' ' ')"
  }
]