stackcollapse-perf: add streaming mode

stackcollapse-perf.pl

@@ -88,6 +88,7 @@ sub remember_stack {
 
 my $show_inline = 0;
 my $show_context = 0;
+my $streaming = 0; # stream the stacks without summing them
 
 my $srcline_in_input = 0; # if there are extra lines with source location (perf script -F+srcline)
 GetOptions('inline' => \$show_inline,
@@ -99,7 +100,8 @@ sub remember_stack {
  'all' => \$annotate_all,
  'tid' => \$include_tid,
  'addrs' => \$include_addrs,
- 'event-filter=s' => \$event_filter)
+ 'event-filter=s' => \$event_filter,
+ 'streaming' => \$streaming)
 or die <<USAGE_END;
 USAGE: $0 [options] infile > outfile\n
  --pid # include PID with process names [1]
@@ -111,7 +113,8 @@ sub remember_stack {
  --context # adds source context to --inline
  --srcline # parses output of 'perf script -F+srcline' and adds source context
  --addrs # include raw addresses where symbols can't be found
- --event-filter=EVENT # event name filter\n
+ --event-filter=EVENT # event name filter
+ --streaming # stream the stacks without summing them\n
 [1] perf script must emit both PID and TIDs for these to work; eg, Linux < 4.1:
  perf script -f comm,pid,tid,cpu,time,event,ip,sym,dso,trace
  for Linux >= 4.1:
@@ -232,7 +235,11 @@ sub inline {
  unshift @stack, "";
  }
  }
- remember_stack(join(";", @stack), 1) if @stack;
+ if ($streaming) {
+ print join(";", @stack) . " 1\n" if @stack;
+ } else {
+ remember_stack(join(";", @stack), 1) if @stack;
+ }
  undef @stack;
  undef $pname;
  next;
@@ -425,6 +432,9 @@ sub inline {
  }
 }
 
+if ($streaming) {
+ exit(0);
+}
 foreach my $k (sort { $a cmp $b } keys %collapsed) {
  print "$k $collapsed{$k}\n";
 }