Recursive call filter: allow floating point values and better regex h…

…andling
brendangregg · Jul 23, 2015 · 54bede2 · 54bede2
1 parent 044f09b
commit 54bede2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/stackcollapse-recursive.pl b/stackcollapse-recursive.pl
@@ -37,9 +37,9 @@
 
 while(<>) {
   chomp;
-  if(/^(.*)\s([0-9]*)/) {
-    my @stack  = split(/;/, $1);
-    my $value  = $2;
+  my ($stack_, $value) = (/^(.*)\s+?(\d+(?:\.\d*)?)$/);
+  if ($stack_) {
+    my @stack  = split(/;/, $stack_);
 
     my @result = ();
     my $i;