split pt-stalk processlist capture into individual files per timestamp, including only the query text and not 'NULL' queries. meant to then feed pt-query-digest --type rawlog

split_processlist

cnt=-1
f = nil
File.open(ARGV[0]).each_line do |line|
  if line.match "^TS"
    f.close unless f.nil? 
    f = File.open(line.gsub(" ","_"), 'w') 
  else
    f.write(line.gsub("     Info: ","")) if line.match "      Info: " and not line.match "     Info: NULL"
  end 
end