show the erlang proc with highest heap allocation

crashdumperl

filename = File.expand_path(File.join(File.dirname(__FILE__), "erl_crash.dump"))
next_line = false
heapallocs = []
counters = []
File.open(filename, "r") do |crashfile|
  while (line = crashfile.gets)
    if (line =~ /^Stack\+heap:\s(\d)/)
      heapallocs.push(Integer(line.split(':')[1]))
    end
    if (line =~ /^Program\scounter:/)
      counters.push(line)
    end
  end
end
p counters.length
p heapallocs.length
Hash[*counters.zip(heapallocs).flatten].sort{|a,b| b[1]<=>a[1]}.each { |elem|
  puts "#{elem[1]}, #{elem[0]}"
}