#!/usr/athena/bin/perl
open(IN, "stats-out");
open(READ, ">plot.read");
open(POST, ">plot.post");
open(CXNS, ">plot.cxns");
open(BYTES, ">plot.bytes");
open(HOSTS, ">plot.hosts");
while(<IN>) {
  chop;
  ($idx, $read, $post, $cxns, $bytes, $hosts) = split(/\s/, $_);
  print READ "$idx $read\n";
  print POST "$idx $post\n";
  print CXNS "$idx $cxns\n";
  print BYTES "$idx $bytes\n";
  print HOSTS "$idx $hosts\n";
}
close(IN);
close(READ);
close(POST);
close(CXNS);
close(BYTES);
close(HOSTS);