[Swift-commit] r4408 - trunk/libexec/log-processing

[wozniak at ci.uchicago.edu]

Author: wozniak
Date: 2011-04-25 14:32:44 -0500 (Mon, 25 Apr 2011)
New Revision: 4408

Added:
   trunk/libexec/log-processing/buckets.pl
Log:
Adding

Added: trunk/libexec/log-processing/buckets.pl
===================================================================
--- trunk/libexec/log-processing/buckets.pl	                        (rev 0)
+++ trunk/libexec/log-processing/buckets.pl	2011-04-25 19:32:44 UTC (rev 4408)
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+
+# Put data into buckets for a histogram
+
+# usage: buckets.pl <WIDTH> <FILE>
+
+# Given a file containing numbers, produces 
+# a plottable histogram file containing buckets 
+# and counts 
+
+# Useful for obtaining job runtime distribution plots
+
+# Example: 
+# cat file.txt
+# 0.1
+# 0.2
+# 1.1
+# buckets.pl 1 file.txt 
+# 1 2 
+# 2 1
+
+use POSIX;
+
+# Bucket width:
+my $width = $ARGV[0];
+
+my $file = $ARGV[1];
+
+open FILE, "<", $file or die "could not open: $file\n";
+
+my %b = ();
+while (<FILE>)
+{
+  # Round up to nearest bucket
+  my $v = ceil($_);
+  while (($v % $width) != 0) {
+    $v++;
+  }
+  if (exists $b{$v}) {
+    $b{$v} = $b{$v} + 1;
+  }
+  else {
+    $b{$v} = 1;
+  }
+}
+
+ at s = sort { $a <=> $b } keys %b;
+
+for (@s) {
+  print "$_ $b{$_}\n";
+}
+
+print "\n";
+
+# Local Variables:
+# perl-basic-offset: 2
+# End:


Property changes on: trunk/libexec/log-processing/buckets.pl
___________________________________________________________________
Name: svn:executable
   + *