Revision 123 (by dpavlin, 2009/11/12 18:48:37) http://use.perl.org/~BooK/journal/39887
#!/bin/sh
# create a good looking graph with dot
# http://use.perl.org/~BooK/journal/39887
echo "digraph G {"
git log --pretty=format:"%h %p" $* \
| perl -lna  -e 'print qq("$F[0]";),map{qq("$_"->"$F[0]";)}@F[1..$#F]'
echo "}"