bin/wcsrc

   1 #! /bin/bash
   2 set -ev
   3 wc `git ls-files`
   4 cat `git ls-files`|sort -u|wc
   5 cat `git ls-files`                                  |perl -pe 's/^\s*//'|sort -u|wc
   6 git log -p        |perl -ne 'print if s/^[+][^+]//;'|perl -pe 's/^\s*//'|sort -u|wc
   7 echo done