From f55084c8a58ba02dab3abd057664c580a58432aa Mon Sep 17 00:00:00 2001
From: Gabriel Corona <gabriel.corona@enst-bretagne.fr>
Date: Tue, 5 Jul 2022 23:46:41 +0200
Subject: [PATCH] stackcollapse-sum, merge identical stack samples

---
 stackcollapse-sum.pl | 47 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100755 stackcollapse-sum.pl

diff --git a/stackcollapse-sum.pl b/stackcollapse-sum.pl
new file mode 100755
index 00000000..99ebbe98
--- /dev/null
+++ b/stackcollapse-sum.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl -ws
+#
+# stackcollapse-sum  Merge identical stack samples
+#
+# Example input:
+#
+#     foo;bar 1
+#     foo;bar 1
+#
+# Output:
+#
+#     foo;bar 2
+#
+# Copyright 2022 Gabriel Corona. All rights reserved.
+#
+# CDDL HEADER START
+#
+# The contents of this file are subject to the terms of the
+# Common Development and Distribution License (the "License").
+# You may not use this file except in compliance with the License.
+#
+# You can obtain a copy of the license at docs/cddl1.txt or
+# http://opensource.org/licenses/CDDL-1.0.
+# See the License for the specific language governing permissions
+# and limitations under the License.
+#
+# When distributing Covered Code, include this CDDL HEADER in each
+# file and include the License file at docs/cddl1.txt.
+# If applicable, add the following below this CDDL HEADER, with the
+# fields enclosed by brackets "[]" replaced with your own identifying
+# information: Portions Copyright [yyyy] [name of copyright owner]
+#
+# CDDL HEADER END
+
+my %stacks;
+
+while(<>) {
+  chomp;
+  my ($stack, $value) = (/^(.*)\s+?(\d+(?:\.\d*)?)$/);
+  if ($stack) {    
+    $stacks{$stack} += $value;
+  }
+}
+
+foreach my $k (sort { $a cmp $b } keys %stacks) {
+  print "$k $stacks{$k}\n";
+}