Skip to content

Instantly share code, notes, and snippets.

$ git shortlog -sn|perl -E'while(<>){($d[$i],$t[$i++])=/(\d+)\s+([^\n]+)/}say"http://chart.apis.google.com/chart?cht=p3&chs=800x300&chd=t:".join(",",@d)."&chl=".join"|",map{s/\s/%20/g;$_}@t'