stackcollapse-sum, merge identical stack samples

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";
+}