diff options
Diffstat (limited to 'fbench/util/separate.pl')
-rwxr-xr-x | fbench/util/separate.pl | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/fbench/util/separate.pl b/fbench/util/separate.pl deleted file mode 100755 index 418733bde7c..00000000000 --- a/fbench/util/separate.pl +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl -# Copyright Yahoo. Licensed under the terms of the Apache 2.0 license. See LICENSE in the project root. - -$sepcol = shift; - -if ($sepcol eq "") { - die qq{usage: separate.pl <sepcol> - Separate a tabular numeric file into chunks using a blank - line whenever the value in column 'sepcol' changes. -}; -} - -$oldval = -2; -$newval = -2; - -while (<>) { - if (/^#/) { - print; - } else { - chomp; - @vals = split; - $newval = $vals[$sepcol]; - if ($newval != $oldval) { - print "\n"; - $oldval = $newval; - } - print "@vals\n"; - } -} |