Merge pull request #60 from randomstuff/master

Recursive call filter: allow floating point values and better regex handling
brendangregg · Aug 3, 2015 · 6c8f715 · 6c8f715
2 parents 3930d5b + 54bede2
commit 6c8f715
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;