#!/usr/bin/perl
$last = 0;
while(<>){
@fields = split(/\s+/);
$diff = $fields[1] - $last;
$last = $fields[1];
if($diff > 0.1){ # adjust number here
print "+$diff\t";
print $_;
}
}
To quickly enumerate the number of function calls:
cat trace.xt |awk -e '{print $4}' |sort |uniq -c |sort -n